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Foreword 


This book is intended to provide the computer user with 
interesting and stimulating games and puzzles. 

Many of the programs were submitted by members of the 
public - from young people through to members of the 
cloth! All the programs submitted were written in BASIC 
and show the amount of hidden talent there is 
among computer hobbyists. 

The puzzles and games we solicited for inclusion were 
chosen not just for their originality and entertainment 
value, but also for sound, practical reasons, such as length 
of program listing and complexity of graphics characters 
used in the listing. 

We would like to thank Paul Boocock for his tremendous 
efforts in the compilation and production of this book. 

To avoid any chance of errors in typesetting, we decided 
that the listings should be reproduced direct from 
computer printout, so, if you type in a program and find it 
will not work, then please check your typing thoroughly. 

We hope that you will have as much fun with these games 
and puzzles as we had when selecting them. 

Robin Bradbeer and Harold Gale 


Shunting 



This is a puzzle that will keep you occupied for hours... 
the object is to place the trucks in the depot and the 
carriages in the station, with the engine in the siding. 
However only the engine can enter the tunnel. It looks so 
easy . . . until you try it. (Solution on page 160.) 


1000 REM SHUNTING 

1005 REM © J, R. JACKSON 

1010 RESTORE 

1015 BORDER 6: PAPER 6 INK 0 : C 
LS 

1020 LET E$ = “ 

1025 LET U$ = " a bC d £ f qhij k ": LE 

T I$ = : ‘ ABCDEFGHIJK 

1100 FOR X=U5R “A" TO USR ,, Q , ’+7: 

READ Y: POKE X,Y: NEXT X 
1105 DATA 48,51.51,127.127.255,1 

•i =: •- 

1110"DATA 62 52,52,254,254,255,1 
56, S 

1115 DATA 127.73.73.127,127,255, 
28,8 

1120 DATA 255,36.36,255,255,255. 

0,0 

1125 DATA 254,146.146,254,254,25 
5,56,16 
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1130 

DPTP 

0,0 ... 127 ... 127,127 ... 25 

5,55 

, 15 




1135 

DPTP 

0,0,254,254,254:25 

w’ , 2 ; Z- : 

1140 

DhTh 

0 : 0 : 0 : 0 : 24.24 : 0 : 0 


1145 

DP "IP 

0 : 0 : 0 : 12 -. 12,0,0,0 


1150 

DP TP 

0,0,44,55,25,52,O, 

0 

1155 

DPT P 

0,4,5,45,32 , : d5,3H , 

32 _ 

1150 

D PT P 

0,0,0,32,125,32,32 

.*• — 

1155 

0 

1170 

■- 

D PT P 

•32: , L2 , Lib! , 2 , j2 , : J2 , 

120 , 

D PT P 

127,127,255,55,15, 

0 , 0 , 

t* 

1175 

0 

1150 

0 

1155 

DPT P 

252,252,254,55,15, 

0 , 0 , 

DPT P 

0,15,255,15,15,255 

u:i 

'■~i 

DPT P 

35 , 35,35 , 35 , 125 , 35 

35 , 

35 

1200 

FOR 

X =4 TO 25: PRINT PT 

2 : X 

; s ‘a s \; 

: PT 7 

, X; ‘H” ;PT 19, Xi : 

HEX 

7 X 
1205 

FOR 

X =29 TO 31: PRINT P 

— .—. 


X; : NeXT X 


1210 

FOR X 

= 4 TO 1 

7: PRINT PT 

X : 2 


: NEXT 

X 



1215 

T • - 

PLOT 

32,157 

DRPU -14,- 

14, P 

i — 

1220 
T* ■ _ 

PLOT 

32,154 

DRPU -11,- 

- - , P 

J. — 

1225 

T . ■-> 

PLOT 

32,117: 

DRPU -14,- 

14, P 

1230 

PLOT 

32,114: 

DRPU -11,- 

11 , P 

1/2 

1235 

PLOT 

i£ , Hi : 

DPPU -11,11 

, -PI 

1240 
... •-« 

PLOT 

32,15: 

DRPU -14,14 

, -PI 

1245 

PLOT 

25:150: 

DRPU -4,4: 

PLO 

T 29 

, 152 : 

DRPU -1 

,5: PLOT 23 

, 145 

: DRPU -5, 

1 



1250 

PLOT 

25,110: 

DRPU -4,4: 

PLO 

T 29 

, 112 . 

DRPU -1 

,5: PLO! 23 

„ 105 

: DRPU -6, 

1 



1255 

PLOT 

25,25: 

DRPU -4:-4: 

PLO 

T 29 

,23: DRPU -1, 

-6: PLOT 23 

,29 : 

DRPU -5,- 

1 



1250 

PRINT 

PPPER 

3.; PT 5,29.; !t 

:: .; P 

T 7, 

29 . .. .. 

l PT 15, 

29.;" " .; RT 19,29 


1265 FOR X =6 TO 19: PRINT PRPER 
3 ; RT X , SO ; " : NEXT X 

127 0 PRINT RT 6,12; INK 1.; ' 

9,12.; INK 2.; “re INK 1.; 

1275 PRINT INK 1; RT 20, 12.. ' IT® 
^ " ; RT 21,12; ‘-=*= — 

1280 PRINT RT 1,3.; ^ \;RT 9,5; 

; RT 5,25 ; ; RT 21,6.; "Z “; RT 21,2 

5; 

1285 PR I NT RT 8,3 ; " f " ; RT 8,5; “ f" 
.; RT 8,25.; ; RT 20,6.; “*-" ; RT 28,2 

p; "i-'' 

1308 LET L* = j*£5E a =-TRRIN-5HUNTI 
NG-PUZZLE" : LET K$ = ' ! .ss »”+E$ 

1385 BEEP ,1,28: PRU5E 5: BEEP = 
4,28 

1318 FOR X=31 TO 4 STEP -1 
1315 PRINT INK 2, RT 1/X;L$< TO 3 
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2-XJ ; INK 0 ;AT 0,X;K$ ( TO 32-X) 
1320 BEEP , 2 .. -30 
1325 NEXT X 

1400 PRINT PAPER 7; AT 15,4;“PRES 
5 “"5“" TO INVERSE i;“S“; INU 

FRFF Pi ' :, TCuT ;: 

1405 IF INKE¥$ <>“s" AND INKEY $ <> 
“5“ THEN GO TO 1405 
1410 GO SUB 4300 

1500 FOR X =U5R "H" TO USR “U”+7: 
READ Y: POKE X,Y; NEXT X 


1505 DATA 
30 , 4 

1510 DATA 
23 , 30 
1515 DATA. 
5 252,4 
1520 DATA 
2 155,155 
1525 DATA 
155,252 


127 126,23,23,254,255 , 
4,155 254,159,254 252 , 
252,155,153,255,153,15 
155 156 252,155 156 25 
4,252 156,153 255,153 , 


1p30 l>h ! •-! 50,60,50,62,53 , t-4,50 ■ 4 
1535 DATA 4,50,52,63,52,60,60.50 
1540 DATA 12,204,204,254,254,255 
., 205,132 


1545 DATA 124,44,44,127,127,255, 
57., 15 

1500 PRINT AT 0,4 ; E$ i. TO 23); AT 
1,4 ; E$ { TO 23) AT 2,23 ; E $ < TO 9) 
1605 PRINT INK 1 : AT 2,23; “ 1 “ 

1610 PRINT PAPER 5;AT 0,27;“MOVE 
5“ ; AT 1., 27.; “TAKEN“ ; AT 2,27; “ 


1515 PRINT PAPER 7; INK 2;AT 4,4 
“ONLY ENGINE CAN ENTER TUNNEL “ 
1700 PRINT PAPER 4;AT 10,4;“USE 
ENGINE TO PLACE;- “;AT 11,4;“T 
RUCKS IN DEPOT “;AT 12,4 

.; “CARRIAGES IN STATION “ ; AT 1 
3,4;“ENGINE BACK IN SIDING 
1705 LET = LET = 

LET SS = “ LET H$=“": L 

ET D =1: LET H=0; LET H=9 
1710 PRINT INK 2:AT l,4;E$i TO 5 
) ;M$.;E$ ( TO 12) .; AT 5,4.; E$ ( TO 13 
) .; D$; E S ( TO 5 3 .; AT 18,4;E$ C TO 13 


) ; 5 $; 

E$ ( TO 5) 



1715 

PRINT PAPER 5 

ht 

2,27k’ = © 

1500 

GO SUB 4400 



1505 

GO SUB 4500 



1510 

IF INKEYS=“U“ 

UK 

INKEYS = !, U 

TtiEH 

GO SUB 4300: 

GO 

TO 1900 

1515 

IF INKEYS=“L” 

OR 

INKEY $ = iS L 

THEN 

GO SUE 4500: 

GO 

TO 2200 

1520 

IF INKEY$=“R" 

OR 

IN KEY $ - :: f 

THEN 

GO SUB 4300: 

GO 

TO 3100 

1525 

IF INKEYS=“3“ 

OR 

INKEY $ = “s 

THEN 

GO SUB 4300: 

GO 

TO 1700 

1550 

GO TO 1310 



1900 

PRINT AT D-i, 

3; IS 

1905 

GO SUB 4500 



1910 

GO SUB 4300 




1315 PRINT AT D-1,3;E$( TO 143 
1340 IF SCREENS (D,3+U)=“ “ THEN 

LET ZS = NO TRAIN UNDER THAT LE 
’TER GO SUB 4805: GO TO 1800 
1325 GO SUB 4400 

1930 IF INKEY 5 =“L“ OR INKEY $ = “L“ 
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!HEN GO SUB 4S00: 
GO TO 2000 
1935 IP INKEY$=“R“ 
THEN GO SUB 4900■ 
GO TO 2100 


GO SUB 4300: 

OR INKEY$=“r" 
GO SUB 4300: 


1940 GO 
2000 IP 
=M$ (U + l 
TO U): i 
20S5 IP 


TO 1230 
H = 9 AND P< 
TO LEN M$) 
!0 TO 2300 
H=S RND f 


=U THEN LET H$ 
: LET H$ =M$(1 

U THEN GO SUB 


4800: GO TO 1800 
2010 IP H =22 RND F<=U+LEN H$-li 
THEN i_B! H$=H$ (U+LEN H$-13 TO LE 
N n$.i : Ltl M5 =H $ (1 TO U+LEN H$-i 
4): GO TO 2200 

2015 ii- H=2= RND FMJ+LEN M$-li T 
HtN GO SUB 4800: GO TO 1800 
2100 IP H=9 RND P > = U +1 THEN LET 
B|=r-l 5 (l FO U) : LET M$=M$(U+I TO 
LEN ii$j : GO TO 3100 
2108 Ir H-9 RND P < =U THEN GO SUB 
4800: GO TO 1300 
£110 IF H =22 RND F>=U+LEN M$-1S 
iHEN_LBi H$ = H$(1 TO U+LEN Mg-ii) 

: Lfc! M$=M$(U+LEN M$-13 TO LEN M 
$): GO TO 3200 

ills ir H =22 RND P<U+LEN MS-13 T 
ntr -4 GO SUB 4800: GO TO 1800 
2200 IP SCREENS (D 9) < , " ** thfn 
GO TO 2300 
220b LbT LS=MS + ‘’ 

2210 FOh X=23-LEN L$-LEN H$ TO Q 
STEP -1 

2215 PRINT INK 2;RT D , X;L$ 

BEEP ,2,-30 
NEXT X 
GO SUB 4300 
LET S=D 

!P_5=1 THEN LET B$=H$: LET 
i—— *' Z =40-LEN S$: GO TO 240 


2220 
2225 
2300 
2305 
2310 
D = 18 
8 

2315 
D = 18 
0 


ir _5 = 5 I HEN LET D$=H$ LET 
LB! i=35-LEN 5$: GO TO 240 


2320 IP 5=18 THEN LET S$=H$ 
SUB 4700 

2325 IP INKEY$=”D" 

THEN LET D=6: LET 
GO SUB 4900: GO Tfl 
2330 IP INKEYS = “5" 

THEN LET D=l: LET 
GO SUB 4900: GO TO 
2335 GO TO 2325 
2400 LET L$=E$( TO 
240 b LbT K$=b $( TO 


GO 


OR INKEY$="d ! 
2=35-LEN D$ 
2400 

OR IN KEY $ = '' S ' 
Z=40-LEN B $: 
2400 


4)+HS+ES 
3+r)+"•s * s" 


2410 LbT U$=E$( TO 3+RBS (D-S)>+ 
Xi+BS 

h41b Lb ! U$=bS ( lO 2+fiBS (D-S'i +p 

l + ” ■ K s *”+£$ 

= 4H0 i_B ! H$ =B$ + Y$ 

242b Lb! OS =E$+E$: LET 0$=Q$( TO 
47 +LE N M$-F)+"***. "+ES 1 TO P-l's 
2500 IP 5=1 OR D=1 THEN PRINT RT 

0,3; ‘‘f 

2505 IP 5=5 OR D=6 THEN PRINT RT 

8, S; 'Y i! 

2510 PRINT RT 20,5; 'Y ” 
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2515 BEEP =1:20: PAUSE 5: BEEP 

4 -.20 

2520 LET L=0 
2525 FOR X = 1 TO Z 

2500 IF x<=44RB5 CD-5) THEN GO T 
0 2700 

2505 PRINT RT D : 4-; INK 2;R$CLEN 
R$-L-X 454RB5 CD-5) TO LEN R$) RT 

D-l: 4 INK 0;0$ CLEN Qi-L-X+5+fiB 

5 CD-5) TO LEN 0$) 

2510 IF SCREEN? CD : X4L-RB3 CD-5) 

) = :: THEN GO TO 2700 

2515 IF D = 1 THEN LET R$=Ri45$: L 
ET L=LEN 3$; LET 0$=G*+E$C TO L) 
2520 IF D =5 THEN LET R$=Ri4D$: L 
ET L =LEN D$: LET 0$=0$+E* C TO L) 
2525 IF D = 18 THEN LET Ri=R$45$: 
LET L =LEN 5$: LET G*=0*+E$C TO L 
) 

2700 IF DO 13 THEN FOR Y=B4l TO 
17 PR I NT RT Y , 1; INK 2 ; U $ C X + Y - D 
-1) ; RT Y : 0 ; INK 0 j U $ C X +Y -D -1) : N 
EXT Y 

2705 IF D = 13 THEN FOR Y = 17 TO 5 + 
1 STEP -1: PRINT RT Y, 1INK 2;U 

i C X 417 -Y) ; RT Y , 0 ; INK 0 ; U $ C X 417 - 
Y): NEXT Y 

2300 PPI^rr RT 5.4; INK 2;LiCX TO 
X.44 4LEN M ?) ; RT 5-1:4; INK 0; Ki C 
X TO X444LEN M$) 

2900 BEEP =1 : -30 
2505 NEXT X 

3000 PRINT RT D-l:4;E? C TO 23): 
IF DOl THEN PRINT RT D-l, 27;“ 

3005 LET Mt=R*C51 TO LEN P?) LE 
T H$ = :: " : LET H=22 
3010 GO TO 4200 

3100 IF 5CPEEK5 CD,22) < > !S !; THEN 
GO TO 3200 
3105 LET R$ = " tJ 4h$ 

3110 FOR X = 94LEN H$ TO 23-LEN R$ 
3115 PRINT INK 2;RT D- X;R$ 

3120 BEEP =2.-30 
3125 NEXT X 

3200 IF D = 1 THEN GO TO 3900 
3205 GO SUE: 4300 
3210 LET 5 =D 

3215 IF D =5 THEN LET D$=H$: LET 
D = 13. LET Z =35-LEN 5$: GO TO 330 
0 

3220 IF D = 13 THEN LET 5$=H$: LET 
D =5: LET Z=35-LEN D$: GO TO 330 

0 

3300 LET R*=E*4M$4E*C TO 5) 

3305 LET 0$ =E$4E?: LET 0?=Q$ ? TO 
454F) 4 ! ' x »• 51 4E$ C TO 54LEN M$-F) 
3310 LET U$=E$ 

3315 LET Lt=Y*4E$ 

3320 LET K $ =E$ C TO LEN M?-F) 4 SS - » 
s* ,! 4E$ 

3400 PPItaT RT 5,25; ! V il ;RT 20,25.; 

3405 BEEP =1,20: PRU5E 5: BEEP = 
4 :20 

3410 IF hi CLEN h$) < > RND h$ CL 
EH h$) O i; # 15 OR LEN hi >2 THEN GO 
TO 4000 
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34-15 LET L — 0 

3420 FOR X = 1 TO Z 

3500 IF x<=15 THEN GO TO 3600 

3505 PRINT RT D , 44-X-L: INK 2:L$ 
( TO X-fL-15 3 AT 0 - 1 ,44-X-L; INK 
0;K $i TO X-fL-15) 

3510 IF SCREEN* (D , 43-X-L) = “ “ T 
HEN GO TO 35S0 

3515 IF D=5 THEN LET L=LEN D*: L 
ET D* =D* +L * : LET L*=D* LET -J$=E 
$< TO L) fK*: LET K$=Ji 
3520 IF D=15 THEN LET L =LEN S* 
LET S$=S*+L*: LET L$=S$ LET J*= 
E$( TO L3+K$: LET K$=J$ 

3600 FOR Y = 7 TO 17 PRINT RT Y,1 
U* (X+Y-73 : NEXT Y 
3700 PRINT RT 5,23-LEN M*; INK 2 
;P5(LEN RS-X-5-LEN M* TO LEN R*- 
X) RT 5-1, 23-LEN !i*; INK 0;Q*(LE 
N R$-X.-5-LEN M* TO LEN R*-X) 

3506 Bttf «1,-30 
3510 NEXT X 
3515 GO TO 4100 

3900 LET Z* = TRAIN CRASHED INTO 
BUFFERS “: GO SUB 4505 
3905 LET L$=H$+M$+E$ 

3910 PRINT INK 2;RT D,9;L$( TO 1 
4 3 

3915 GO TO 4100 

4000 IF F <LEN !i$-l THEN LET Z =6 
40.05 IF F ;• =LEN M*-l THEN LET Z=S 
4010 FOR X=i TO Z 

4015 PRINT INK 2;RT 5,23-LEN M$; 
R*(LEN R5-X-5-LEN M$ TO LEN R*-X 
3 ; INK 0RT 5-123-LEN M* ; 0$ (LEN 
R$-X-5—LEN H$ TO LEN R$-X3 
4020 BEEP .2,-30 
4025 NEXT X 

4030 LET Z$ = ‘ ; ONLY ENGINE CRN ENT 
ER TUNNEL”: GO SUB 4505 
4035 LET D=S: LET L*=H*+M*fEj 
4040 PRINT INK 2;RT D,9;L$( TO 2 
0 3 

4100 PRINT RT D-1,4;E$ ( TO 233 
IF Dol THEN PRINT RT D-1,27.;” 

4105 LET M* =L$(1 TO LEN L$-50) : 
LET »$ = •'■■ : LET H=9 

4200 PRINT RT 0,3‘V “ RT 5,6; ” 1 -” 

; h ! s,c:5; 'V’;H! 2 0,6> ■; " *-" ’; fli 20,2 

5; "r“ 

4205 LET M=H-fl: PRINT RT 2,29; P 

fipgi;, 5 ; 

4210 IF D = 1 AND M$= AND D$ = ” 

=^ == t = ^ : AND 5$ = ”J*M*uSBi9L” THEN PRI 
NT PAPER 5; RT 10,4; ‘‘WELL DONE! 
THERE ARE ”;RT 11.4;”3 DIFFERS 
NT SOLUTIONS “(AT 12,4; ‘TAKING 
20 OR 22 HOLES. ";AT 13,4;“CRN 
YOU FIND THEN ALL? ” 

4215 GO TO 1500 

4300 LET X$=M$: LET Y 5 =H* 

4305 FOR X = 1 TO LEN H* 

4310 IF MJMX3 =“4*” THEN LET X* €X3 
= “•4” LET Y$ (LEN M$ + l-X3 ='%" ; LE 
T F=X 

4315 IF M$ (X) =*%” THEN LET X$ (X3 
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= "*" LET Y* (LEN M4 + 1-X) = " H" : LE 
T F=X 

4-320 IF M$(X) = “*“ THEN LET X$ (X'f 
= "*" . LET Y$ (LEN H*+I-X> = "*" 

4-325 IF M$ (X'J = **»" THEN LET X$ IX) 
= LET Y$iLEN M$+l-X)="»" 

4330 IF H$ (X) = “$" THEN LET X$ (X) 
= “*" . LET Y$ (LEN M$ + l-X) = *'*•' 

4340 IF DO IS THEN GO TO 4370 
4345 IF H$ (X) = "#" THEN LET X$ (X) 
= "#■' : LET Y$(LEN M$+l-X> = ' *" 

4350 IF H$(X)=“*l" THEN LET X* (X) 
= "£" : LET Y$ (LEN M$+I-X) = "*L" 

4355 IF N$fX>=“* THEN LET X$(X) 
= * LET Y$ (LEN H$+l-X) = ,: 'W‘ 

4360 IF M$ (X) = ‘*P" THEN LET X$ (X) 
= LET Y* (LEN M$+l-X) =‘ 

4365 IF D = 18 THEN GO TO 4390 
4370 IF ii$ (X) «“V THEN LET X$ (X) 
= LET Y$ (LEN rt$ + l-X) ="*" 

4375 IF M$ (X) THEN LET X* VX) 

= LET Y$(LEN M$+l-X) = "*" 

4380 IF M$ (X) = “*" THEN LET X$ (X) 
= "1" : LET Y$ (LEN M$ + l-X) =*‘*“ 

4385 IF !i$ (X) ="*" THEN LET X$ (X) 
= LET Y$iLEN M$+l-X)="*" 

4390 NEXT X 
4395 RETURN 

4400 PRINT PAPER 7;RT 15,4;“HOVE 
TRAIN " ; INVERSE i;"L"; INVERSE 
0: EFT OR INVERSE 1;"R‘‘; INV 
ERSE 0.; " IGHT" 

4485 RETURN 

4500 PRINT PAPER 7;AT 16,4; INVE 
RSE 1; “ U ; INVERSE 0; *’ NC0URLE 0R 
”; INVERSE i;”5"; INVERSE 0 ;"TR 
RT AGAIN?" 

4505 RETURN 

4600 PRINT PAPER 7;AT 15,4;"PRES 
S LETTER ON LEFT OF “AT 16,4; "L 
INK TO 5E DECOUPLED 
4605 FOR X = 1 TO 14 

4610 IF INKEY$=W$(XI OR INKEY$=I 
$ (X) THEN s_ET U =C0DE U % f X>-95: R 
ETURN 

4615 NEXT X 
4b20 GO l0 460b 

4700 PRINT PAPER 7;AT 15,4;"TRAI 
N TO INVERSE 1;"D"; INVERSE 0 
;"EPOT";AT 16,4;"OR TO "; INVERS 
E 1;"S"; INVERSE 0;"IDING? " 

4705 RETURN 

4800 LET Z$=" ENGINE NOT IN HOVI 
NG TRAIN " 

4805 PRINT PAPER 7.1 AT 4,4; Eg ( TO 
28) 

4810 FOR X=31 TO 4 STEP -1 
4815 PRINT PAPER 7; INK 2;AT 4,X 
;Z$ C TO 32-X) 

4820 BEEP ,05,X—20 
4825 NEXT X 
4830 RETURN 

4900 PRINT AT 15,4;E$( TO 24);AT 
IS , 4;E$ i TO 24) 

4905 RETURN 


Author: Rev. J. R. Jackson 








Boxing 



You will see a plan of a cube with the faces folded out flat. 
Each face has a different pattern on it. Below this are six 
cubes in their proper shapes. Five of these cubes could be 
made from the flat plan. One could not. You have to spot 
which cube is the odd one. 




1 REM 

2 REM 

3 REM 




BOXING 


_4 REM 

50 i_iz i side ten =24 

55 1—5 ! s Lan t =s i de ten/SG h (2) 

60 L5; patts=10 
70 DIM s (6 ..4) : RESTORE 8200 
75 FOR i =1 TO 6: FOR ,1=1 TO 4 
80 HSzHD S(i:j) 

85 NEXT j; NEXT i 
100 DIM mi*:. 30) 

210 RRNDOMIZE 

295 00 TO 1000 

300 h:tzM ** Message * + 

310 PRINT RT 20=1; BRIGHT 1; FL 
R5H 1; RRPER 5.; INK 0;ni* 

320 GO SUB 400 
330 IF INKEY $ < > ,: 


THEN GO TO 
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335 LET K $ = INKEY*: IF K$ = : THE 

N GO TO 335 

337 IF ?:$;• = ;; h ;: RND K. $ , = : Z ' THEN 
LET K 5 =OHR $ (CODE ( X %) -32 

340 PRINT RT 20, I.; - 


345 RETURN 

370 HtM * ?r In s t r u c 1 1 o n ± ± 

350 PRINT RT 20:1; BRIGHT 1; PR 
PER 6; INK 0;m $ 

395 RETURN 

400 Rtli Pips ** 

410 FOR i=1 TO 2 
420 BEEP 0=05.50: PRU5E 2 
430 NEXT i 
44-5 RETURN 

470 wt'M ph Draw border 
460 PRINT RT 0,0; : jp i; : FOR i =1 T 
0 20 PRINT RT i:0; i 5! : NEXT i 
455 PRINT RT 21,0; : FOR i=1 

TO 30: PRINT RT 21 5 i: ; = NEXT i 
470 PRINT RT 21.31; =1 FOR i =2 
0 TO 1 STEP -1: PRINT RT i,31; I 
: NEXT i 

4 T 5 PRINT RT 0,31; =l :; FOR i =30 
TO 1 STEP -1: PRINT RT 0 , i ; 1 5=6 
NEXT i 
495 RETURN 

700 Kth p* paspberrM pp 
510 BEER 1:16: BEEP 1.12 
520 BEEP =5:25. FOR x=23 TO 17 
STEP -0,5: BEEP =1 , X: PRUSE 2: N 
EXT x 

775 RETURN 

770 KtM s* Congratulations h 
555 RESTORE 570 

550 RERD H :p : BEEP n *0 , 25 = P : IF 
n >0 THEN GO TO 550 


570 DRTR 1:12,1.14:1:16:2,17:2= 
5,12 


572 DRTR 1,17:1,15,1,17,2,19,2= 
5 : 14 

574 DRTR 1,14,1,15,1,17,1=5,21, 
0 = 7 : 19 

575 DRTR 1.19:1:17:1:17:1:15:1: 
14,1,15,3,17 

550 DRTR 0.0 
595 RETURN 


999 REM 

1000 HtM *7 5how ins t r u ctions 

1001 REM 

1050 PRPER 4 INK 0: BORDER 3: 0 

L5 

1050 RESTORE 5000 
1070 PRINT RT 2 ; 0: 

1050 RERD i$ IF i$0-© ss THEN PR 
!NT_i$ GO TO 1050 
1200 L7! n*= -press any Key to co 
n t i nue = = = :: GO SU7 30O 

1999 REM 

2000 REM p-r Generate puzzle tt 

2001 REM 

2050 PPHDOrilZE 

2055 PRPER 6 INK 1: BORDER 4 0 

LS 

2050 DIM p(6): DIM 0(4:2). DIM U 
(5,2): DIM b(3): DIM 1(3) 
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£070 PGR i=l TO 6 
H0S0 l_tT p(i)=±N! (HND*pa 1 ts i +1 
2090 Ltl US£d =0 
£100 FOR ,i=l TO i-l 
£110 IP p(ji=piiJ THEN LET used = 
1 

2120 NEXT j 

2130 IP used =1 THEN GO TO 2050 
£150 NEXT i 

£1 ."0 LE ! sta r t = (256- (4*s i de ten ) ) 
/£ 

2150 LET y=125: LET yieu =1 
2200 FOR i=1 TO 4 
2210 LET x =s tart+(i-l) a-- i d e ten 
2220 LET Side =S (1 , i ) 

2230 GO 5U5 3200 
2240 NEXT i 

L24-5 LEI s i d e =1: LE i x =s t a r t + (IN 
i (hND* 4))*sideten Ltl y=y-side 
ten: GO SUB 3200 

£250 LEI sid e =5 : LE! x=s t ar t+fJN 
■: (hND* 4) ) *s i de ten LEi y =y + 2*s i 

de ten: GO SUB 3200 
2260 PLOT 0,99: DRfiU 255,0 
2300 LET i.»poss =1 + INT (RND*S 
2320 FOR i=i TO 6 

2330 IP ioisiposs THEN GO SUB 26 
00 

2340 IP i=imposs THEN GO SUB 250 
0 

2350 IP i<=3 THEN LET xl=10+72*( 
i—11: LET y1=50: LET 1=12: LET c 
= 7 + 9* ! i -1) 


2350 

IP 2 

>3 THEN LET 

X1=13+72*(i 

-4) : 

LET 

y1=5: LET L 

= 18: LET c =7 

t9t ( 2 

-4) 



2370 

GO SUB 3100 


2350 

PRINT RT t , c,CHRS (64 + i) 

2390 

NEXT 

i 


2400 

GO TO 4003 


2599 

REM 



2500 

REM 

* Generate 

OK box 

2501 

REM 



2520 

LET 

b(1)=1*1NT 

(RND*5) 

2530 

LET 

b (2) =s (b (1) 

, 1 + INT (RND-r 


4) ) 

2635 LET used=0 
2640 FOR P=1 TO i-l 
2650 Ir u (p,1! = b 11> RND u (p ,2) =b 
(2) THEN LET used=l 
2660 NEXT p 

2570 IP used=l THEN GO TO 2620 
2650 LET U (i ,1) =b (1) : LET U (i ,2) 
= b (2) 

2690 LET p=l 

270.0 IP s (b (1) ,p) < >b (25 THEN LET 
P =P +1: GO TO 2700 
2710 LET p=p+l: IP p >4 THEN LET 
P =P -4 

2720 Lt! bi3) =s (b(1) ,p} 

2750 RETURN 

2799 REH 

2800 kpM * Generateilaposs i b te bo 

y 

2801 REM 

2820 LET b(1)=1+INT (RND*6) 

2830 LET b(2) =s (b(1) ,1 + INT (RND* 
4 ) ! 
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284-0 LET p=l 

2850 IP s ( b (I3 ,p3 < >b (2) THEN LET 
P=P+1: GO TO 2850 
2850 LET p=p+I: IP p >4 THEN LET 
P =P -4- 

2880 LET b (3) =1+INT (RNDe53 
2898 IP r. (3) =P OR b (3) =b (!) OR b 
(33 = b (23 "HEN GO TO 2888 
2988 RETURN 
■ J0Q9 RcM 

3188 RtM * S'-u b r ou t i ne t o d r a w 3d 
view of box 
3181 REM 

3118 POR s=l TO 3 

3120 LET V i £ 0 =s : LET sid£=b(s3 

3130 LET X = X1: LET y=yl 

314-0 IP s =2 THEN LET y=y+sid£t£n 

3150 IP s=3 THEN LET x=x+sid£len 

3163 GO SUE 3288 

3178 NEXT s 

3188 RETURN 

3199 REM 

3288 hum * Subroutine to dr ao s i 
d £ 0 f bO X q i v£ H X , y , Side , V i £ W 
3281 REM 

3218 LET c(1:ij=x: LET c(1,23=y 

3215 GO SUE 3220 + V i £ * * • 38 

3228 LET cX= c (1,13 + (C (3,13 -C (1,1 

3 3 /2 

3222 LET c y = C (1,2 3 + ( c ( 3 ,23 - c (1,2 

3 3 /2 

3223 90 SUE 3358 

3225 GO SUE 34-88 

3238 GO SUE 3488-fP (side 3 *28 

3248 RETURN 

3258 LET c (2,13 =X: LET C (2,2 3 =y + 
sideL £ n 

3255 LET C (3,13 =x + sideten: LET C 
(3 , h 3 =y +s i d£ L£ n 

3258 Lb i C (4,13 =X tS i d£ L£n : Liz \ C 
(4,2 3 =y 
3278 RETURN 

3288 Liz ! C(2,13 =XtS Lant : Liz \ C (2 

,23=y +stant 

325^ LlI c(3,13 = x+sid£ ten +stant: 

Lb! c(3 ,h 3 =y rSLant 
3 l 90 Lb I c (4,13 =X+Sid£ Le n: Lb! C 
(4,2 3 =y 
3388 RETURN 

3318 Lb ! c (2,13 =x Lb ! c (2,2) =y -f 
S i d £ L £ n 

3315 LET c (3,13 =x 4SL ant: LET c(3 
,23 =y +s i d£ L£ n +s Lan t 

■Z'-Zj H3 Lb ! C *.4,i.' — *f S t an L Lb! C 4 
: 23 =m +s tan t 
3338 RETURN 

3358 kEM So broo tine to fi nd nidj 
p oin t o f e a ch side 
3355 DiM m(4:23 
3358 POR z =1 TO 3 

3378 LET m iz , 13 =c (z , 13 4- ( c « z +1,13 
-C (Z s 13 3 /2 

3388 LET m tZ , 23 =C (Z , 23 4 ( C (Z 4-1,23 
- C (z ; 2 3 3 /2 
3398 NEXT Z 

3392 LET m (4:13 =C (4,13 4(C (1,13 -C 
(4,133/2 

3394 LET m (4,2 3 =C (4,2 3 -f ( C (1,23- C 
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(4-, 2) 'I / 2 

3395 RETURN 

3480 RtM * Draw basic Side * 

3485 PLOT C (1,1) ,C (1,2) : DRRU C ( 
2,11-c(1)1),c(2.2)-c(1,25 
3487 DRRU C (3,1) -C (2,1) ,c (3,2) -C 
( 4 , 4 ) 

3418 DRRU c (4,1) -c (3, 1) , c (4,2)-C 

(3.2) 

3412 DRRU c (1.1)-C (4,1) ,c (1,2) -C 

(4.2) 

3415 RETURN 

3428 RtM Dia gona L c r o ss 

3422 DRRU C (3,1)-C (1,1) ,C (3,2) -C 

(1.2) 

3425 PLOT C(2,1 ),c(2 ,2 ). DRRU c< 

4.1) -c(2,1),c(4,2)-c(2,2) 

3433 RETURN REM dia g6n a L cr 0 s s 

3448 RtH Circle 

3445 C inCLt c x , c y , s i d e le n /5 

3458 RETURN 

3463 REM Cross 

3465 PLOT Si (1,1) , Si (1,2 ) : DRRU Si ( 

3.13 -Si (1,13 , »i (3,2 3 -Si (1:2) 

3473 PLOT Si (2,13 , Si (2,2) : DRRU Si i 

4.1) -Si (2,13 , Si (4,23 -Si (2,2 3 

3474 RETURN 

3475 RETURN 

34«3 wtM Dou b le c r os s 

3485 GO SUB 3423: GO SUB 3468 

3495 RETURN 

3583 Htrl Diamond 

3585 FOR 2=1 TO 3 

3513 PLO ! Si (z ,13 , Si (z ,2) : DRRU Si ( 
z +1,1) -a iz , 13 , Si (Z +1,23 -Si (Z ,23 
3512 NEXT z 

3515 PLOT Si (4,13 , Si (4,2) : DRRU a ( 

1.13 -a (4,13 , Si (1,2) -Si (4,23 

3519 RETURN 

5523 kEM Cr os s hateh 

3525 GO SUB 3423 GO SUB 3538 

3535 RETURN 

3543 REM C i r c L e o n d i a Si o n d 
3545 GO SUB 3463: GO SUB 3588 
3555 RETURN 

3563 REM Circle on. cross 
3565 GO SUB 3443: GO SUB 3468 
3575 RETURN 

3s8© REM Circle on diagona l c ros 
s 

3585 GO SUB 3420: GO SUB 3443 

3595 RETURN 

3**23 wtM Blank side 

3515 RETURN 

3980 GO TO 3483 

3999 REM 

4383 4:EM ** Rc cep t answer ** 

4381 REM 

4053 INPU i ” tn t er l e 11 e r o f ' o r - 
box LINE r $ 

4363 LEI r$=r$( FO 1) 

43,"3 Lti answer =CODt r$. In answ 
er>98 j_H*N LlI answe r =answe r-32 
4383 Lti answer =an s we r-54 
4393 Ir answer=iaposs iMEN Lti o 
k =1 

418*3 ir answe r < ;-i siposs FHtN Ltl 
o k =3 
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4-499 REM 

4588 Kth ** Check answer ** 

4501 REM 

4558 IP ok =8 THEN PRINT #0.; "So rr 
y - that's not right 1“: GO SUB 
588: PRU5E 8 

4578 IP ok =1 THEN PRINT #0; "WelL 
round - quite correct GO SU 

B 558: PAUSE 8 

4588 INPUT "Try again ? Enter Y 
or N "; LINE *.$: LET k$=k$( TO 
1 ) 

4598 IP k$<>“y“ THEN PAPER 7: IN 
K 8: CL5 : GO TO 9999 
4588 IP Ok=8 THEN GO TO 4888 
4518 IP 0 k =1 THEN GO TO 2888 
7999 REM 

8308 HtM ** ins t r uction data * 
8881 REM 

8818 DATA “ BOXING”» “ 


8028 DR i h ‘'After these i ns t ru c t i 
ons , you“ 

8838 DA i A “witt see a plan of a 
cube with" 

8848 DA!A "the faces foLded out 
f 1st, “ 


88s8 DA!A “Each face has a diffe 
rent"./"pattern on it."/" " 

8863 l>h ; A “ Be l o w t h i s a re si x c u 
be s “ 


8878 DATA 
s. rive“ 
8888 DATA 
be r»ade“ 
8898 DATA 
8103 DATA 
ave to" 


in their proper shape 

‘o f tbase cubes couLd 

'• f r o «■ t h e f l a t p t a n.. “ 
‘One c ould not. Y ou h 


8118 DA FA “3p 0 t w hic h c u be is th 
e odd one, 1 '.,” " 

8128 DATA “Enjoy yourself !“ 

8198 DATA “!?!“ 

8199 REM 

8280 HtM * Sides adjoining each 
side o f c ube in cl oc k wis e or de r 

8281 REM 

8213 DATA 2,3,5,4 
8228 DATA 5,3 = 1,4 
8238 DATA 2,8,5:! 

8248 DATA 2,1,5,6 
8258 DATA 4,1= 3,5 
8260 DATA 2,4,5,3 
8993 GO TO 9999 

3883 input “Pile to save 7 “; LI 
NE f $ 

y0l8 5HU5 *"!s“;l; f$ 

9323 GO TO 9999 

9188 INPUT “Pile to erase ? i_ 
INE f$ 

9118 ERASE "a" ; 1; f$ 

9128 GO TO 9999 


Author: P. Payne 



Blocks 



This program presents you with seven six-sided blocks. 
You have to arrange the seven blocks so that the adjacent 
sides are of the same colour. The program allows you to 
rotate the blocks - but you will find it much more difficult 
than it at first seems. 


1 REM 

2 REM BLOCK5 PUZZLE 

BY M . TRI NE'ER . 

3 REM 

4- h l M G f s P h i c s C h 5 r 3 c t s r s 

ft — B-P c-p D-~ 

15ss Line t>000) 

5 PRPER 7: INK 0: BORDER 0 0 

LS . PRINT 11 Blocks Ruz 

2 l£ by'"' M.Trindsr 

1984 “press x' for instr 

u c t i o n s ■' R ■' t o R L 3 y , " 

6 IP IN KEY$ = "I" OR INKEY5= • 
THEN GO TO 8000 

7 IP IN K E Y $ > “ p ‘" ft N D IN KEY $ 

P THEN GO TO 5 

10 GO SUB 4OO0 
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20 DIM C $(7.5) ' DIM 2(S) 

38 GO SUB 4828 

48 DIM b$ (7.6) : FOR 3=1 TO 7 
LET b 5 (a) =“777777": NEXT 3 

58 CL5 

55 GO SUB 3888 

56 FOR i=24 TO 28: PLOT 8,i: D 
RRU 255,3: NEXT i: PRPER 8: INK 
7: PRINT AT 13,8, " 

53 INK 0; PRPER 7: GO SUB 4840 

61 LET 1=1 

62 IF b$(Z)=“777777” THEN GO T 
0 ? 8 

63 LET Z =Z t 1: IF ZO 8 THEN GO 
TO 62 

65 IF b$ (1,3) = b$ (4,5) RND b$ i.1 
4 j = b 5 (3,1 ) RND b 5 i 1 ,2 ) = b 5 ( 2,5) 
RND b 5 i 3,2) = b $ ( 4,5) RND b5(2,4) = 
b5 ( 4,1 ) RND b5 (2,3) =b$«5,6) RND 
b$ 4 , 2) = b5 in , n ) RND b5 i 3,3 ) = b5 
, 6) R N D b 5 (6,1) = b $ (4 4 R N D b 5 i 
. 2 i = b $ ( 7,5) R N D b $ i 7 ,6= b $ i 4,3 ) 
RND b$;7,1) =b$ in,4) sHtN GO i0 
383 

78 PRPER 3: INK 7: PRINT RT 2 
, 8'■ M o v e ( f ) r o m b o a r d i i ) o b o 
r d i R j o i a t £ o r (5) w a p t« o p i £ c 
S : i_ET a 5 = INKEY $ IF a$ = “ ;; 

HEN GO TO 73 

88 IF a $ : > ;t f” RND a$ ’t" RND 
a $ • >”r “ rnd a $ < >s ! HtN GO ro 7 
8 

85 PRINT RT 23,0" 


93 Lb! b3d= 8 
0 SUB 1338 
138 IF a$=“t” 
118 IF 
128 IF 
138 IF 


IF 35= f" THEN G 


:■ o ■ r y - 


3 5= r 
3 5 = 
b a d 
y 


THEN GO 
THEN GO 
THEN GO 
THEN PRINT 
you can ' t 


5UE 2338 
SUB 3888 
SUB_538 
H ! H 8,3 ,. 

d o t h a t. 1: 
28,3.; " 


BEEP .5,-20: PRINT RT 
GO TO 78 
Xb-3 GO ’• 0 68 
5 3 0 PRI NT RT 28,8‘' S w a P 
_ET ?5 = INKEY5 IF f 5 < 
$>‘•'7” THEN GO TO 588 
518 PRINT RT 23,0;"Uith 
: PRUSE 8, PAUSE 0 
511 i_ET t 5 = INKEY 5 IF t 
7“ THEN GO TO 511 
LET f=URL f5 LET t=URL 


- ,1-7) 
1 OR f 

- (1-7) 
IV' 1" OR 


t 5 > 

512 

513 
RN 

523 LET a 5 = b 5 it) 

n . ^et &5 in=35 

1088 PRINT RT 20, 

0 5 it ion - (1-7) “: 

IF (5 "1" OR ? 5 
1300 

1031 LET f =UAL f 5 
1013 IF bS < f * 13 = 

=1 RETURN 

1028 FOR 3=1 TO 7: In 
THEN LET c 5 i3 ) =b$ ( f ) 


IF f=t THEN LET bad =1 HRTU 


: LET b5 (t) = b5! 
RETURN 

3 ; ' 1 r r o m b o a r d p 
LET f 5 = INKEY 5: 
“7" THEN GO TO 


THEN LET bad 


5(3 , 1) =’“ 

LET fa5( 


ijj »jj I (S3 •»:» u< |~ 
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) = ■ 777777 :: RETURN 
1030 NEXT a: SEEP 3:30 STOP 
2000 PRINT PT 20 = 0; :: To board pos 
1 t i O n - (1-7) !S : LET t $ = INKEY $ I 
F t OR t 5 > s 5 7 5 * TtiEH GO TO 20 

00 

2010 PRINT PT 20:0; st Uh i ch P i e ce 
- (1-7) 11 : PR USE 0: PROBE 

0 


2011 let p 5 = INKEY $ IF P $ < 1 : OR 
p 7 ;; THEN GO TO 2011 

2012 LET t=URL t$: LET p= UPL P5 
2020 IF c$(p :1) = 5 '7' ! THEN LET bad 
=1. RETURN 

2030 IF b$ (t :1) O “ 7 M THEN LET ha 
d=1: RETURN 

2040 LLl b $ ( t) =05 (P ) : Liz i C 5 ( P ) = 
i: 777777 s ' : RETURN 

3000 PRINT PT 20.0j !S Uh i Ch P iece 

to rotate - (1-7) 7 LET p5=INKEY 

5 IF P $ < ‘ 1 1 1 ’ OR p$> !, 7 !! THEN GO T 
0 3000 

3001 Liz! P = UPL p$ 

3010 IF b$ (P : 1) = :: 7" THEN LET bad 
=1: RETURN 

3020 Liz ! 3 $ = b$ (p 1) : Liz ! b$ (P , l 

0 z-) = b $ ( p , 2 T0 ) • Liz ! b 5 (p , 5 ) =3 5 
: RETURN 


4000 RESTORE 9998: FOR 3=1 TO 3: 

REPD b : C : POKE USR :: 3 4a b : POK 
E USR d 43 c ; POKE USR :: b i5 43 44 , 


b: POKE USR ^ C 11 43 44.,. C 
4010 POKE USR ' : 3 ;: : 255 
' 5 d : 2S5 : FOR 3 =0 TO 4 
‘ 1 b 1 ‘ 43 -.255: POKE USR i: 
EXT 3 


NEXT 3 
POKE USR 
POKE USR 
43:255: N 


4015 FOR 3=4 TO 7: POKE USR a :: 4 
3:0 POKE USR d : ’ 43 :O: NEXT 3: R 
ETURN 


4020 RESTORE 9999 

4030 FOR 3=1 TO 7: REPD C$(a)- N 
EXT a : RETURN 

4040 PRINT PT 0i0,; “ 1 2 7 PRINT 

:: 3 4 5 - : PRINT 11 5 7 t: 

4050 PRINT PRINT 
4050 PRINT i! 1 2 S, .;PT 5,24.; :t 3 

4-7 PT 11,1; “5 57PT 11,24; 


4070 LET i=7: LET i2=i LET p=i: 
LET P 2 = i 

4080 RESTORE 9997 FOR 3=1 TO 7: 

REPD : m : FOR b = l TO 5: LET z ( b 
) =UPL C $ (3,b) : NEXT b : GO SUE 50 
00: NEXT 3 

4090 LET P =UPL b5 (3,1) : LET p2=U 
PL b 5(4: 5) : LET y=5 LET x=12: F 
OR b = 1 TO 5: LET z(bi=UPL b$ (1,b 
): NEXT b: GO SUE 5000 
4100 LET P =UPL b$ (4:1) LET p2=U 
PL b5(5: 5) . LET u=5: LET x = 15 F 
OR b = 1 TO 6: LET Z(b )=UPL b 5 (2,b 
): NEXT b: GO SUE 5000 
4110 LET i2 =UPL b*(l,4): LET p=7 
LET P 2 =UPL b$C5-6): LET y=5: L 
ET x =10• FOR b = l TO 6: lET z (b) = 
URL b$(3:b) : NEXT b: GO SUE 5000 
4120 LET i = UPL b5(1= 3) . LET i2=U 




Blocks 


23 


AL b532,43 LET P =UAL b$(6,13: L 
Pi" p 2 =UAL b$ (7.63 Lt! y =S : Lb.! 
K=14: FOR fa =1 TO 6 LET Z(b3=UAL 
fa*34,faj : NEXT fa: GO SUE 5000 
4130 LET i =URL fast2,33: LET i2=7 
: LET p2 =7; LET P= UAL b$ 37,13 : L 
FT 4=8 LET X =18 FOR b = l TO 5: 
LET z 3 b 3 =VRL fa5(5,fa3 NEXT fa GO 
SUB 5000 

4148 LET i =URL b5(3,33: LET i2=U 
RL b5(4,43: LET P =7 : LET X=12: L 
ET 4=11: FOR b=l TO 5: LET Z3b3 = 
URL b$(6.b3 : NEXT b: GO SUB 5088 
4158 LET i=URL b$34,33: LET i2=U 
fiL b$ (5,43 : LET 4=11: LET X=1S: 
FOR b =1 TO 6: LET z (b) =URL b $ 3 7, 
b3 : NEXT fa: GO SUB 5888 
4168 RETURN 

5888 LET a* = “^“ LET d| = : F 
5885 REM ! ‘A5“ ‘'CD- 

5018 PRINT RT 4,X; INK i; PAPER 
z «6 3 ; d $ ; INK i 2 ; PAPER Z 313 a $A 
T 4+1 ..X I INK Z 36 ; PAPER Z 3 53 3 5 
; INK z 313 ; PAPER z 323 d $RT y+2 
, x PAPER z 3 4 3 ; INK z (53 ; d 5 ; PAP¬ 
ER z 3 3 3 INK z 32 3 , a $ AT y +3 , x P 
APER p ; INK z 3 43 3 $. PAPER p2.; I 

NK z 333 ;d$: RETURN 

7888 DIM 8 5(7043 : 0UER 1 : INUERS 

E 1: FOR i=l TO 4: PRINT AT 8,8.; 

3 $ ; NEXT i: INVERSE 0: OVER 8: 

CL 5 : PRINT ‘.“ INK 6.; P 

HFtH 2 ; FLASH 1; *' Co n 9 r a t u La t i o ns 

- you did it,’ 1 

7818 PRINT *''“Press : ""R - to 

re-run“'“Q - to stop“ 

7828 IF INKEY*=“r“ OR INKEY$=”R“ 
THEN RUN 

7838 IF INKEY5=“" THEN GO TO 782 
© 

7848 OLS : STOP 

8888 OLS PRINT "In S t ruCti0ns“ 

PRINT ; _“ 

8818 PRINT ••“Arrange the 7 Bloc 
k s 3 o t h at t h e adj ac e n t side s of 
t h e fa l o c k s a r e o f t h e s a m e c o i o u r 
= i h i s is si u o h s- ore d i f f i c u 11 t h a 
n i t at first seerss = ” 

8828 PRINT AT 20,5,“Press any ke 

4 to pi 34“ 

8838 IF INKEY$ = ““ THEN GO TO 883 
8 

8848 GO TO 18 

9808 PLOT 75.88: DRAW 8,24: DRAW 
16,8: DRAW 8,15: DRAW 20,18: DR 
AW 16,-8: DRAW 15,8: DRAW 20,-10 
: DRAW 8,-15: DRAW 15,-8: DRAW 8 
: — H 

9818 DRAW -16,-8: DRAW 8,-15: DR 
A W -28,-18: DRA W -15,8: DRA W -15 
,-8: DRAW -28,18: DRAW 8,16: DRA 
W -15,8: DRAW 8,8 

9828 PLOT 8,32: DRAW 75,8: DRAW 
8,111: DRAW -75,0: PLOT 255,32 
DRA W -7 6,8. DRAW 8,111: DR A W 76 , 
8 

9030 PLOT 58,175: DRAW 8,-31 
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9848 PRINT PT 
a r i n g :s 

9858 PRINT PT 
9058 PRINT PT 
on board r ! 

9878 PRINT PT 

9188 RETURN 
9288 PEM 

9218 SPUE ■ BLOCKS :: LINE 5 
9228 PEM 

9238 STOP 

=? =* y 7 L S H ! H 8 : D : : D .! CL 3 : D «Z' «Z' 8 .1 -L 2 

.. 5 ■. 12 -.23 , 12 

9993 DPTP: BIN 88111 111, BIN 11111 
188 : BIN 88881111 s BIN 11118888,51 
N 88888811 s BIN 11888888 
8889 DPTP 1 163542 s5 55 43256 1 55 , ; '551 
432 55 "652413" = "246531 :: , :: 155342 55 , 
55 541263 :: 


8 , 7 ; 15 < - do a r d Mu m b 

17,12; 55 Bo a r d t :: 

ai, •/ ' I H 1 £ C £ £ n O T. 

3,7; 15 v , PT 3,28; "v 


Author: M. Trinder 


Mousehunt 



An invisible mouse is running around beneath a grid of 
coloured tiles. The object is to track it down. Your own 
position is indicated by a cross and you move by using the 
cursor keys (5 to 8). The six squares on the right show the 
colours of the last six tiles which the mouse has passed 
under, with the current tiles on the far right. When you 
think you are directly over the mouse, press “0”. At the 
start of each game you are asked to choose a level of 
difficulty, from 1 (hard) to 7 (easy). The score for each 
game starts at 100 and goes down by 1 each time the 
mouse moves, and by 5 each time you aim at it but miss. 
The purpose of the game is to achieve a score as close as 

possible to 100. 


10 RANDOMIZE : BORDER 1: PAPER 
1 : CL5 

20 GO SUB 9880 
30 GO SUB 3080 
40 GO TO 1808 
180 Rt!i print c r oss 
110 PRINT PAPER 8.; ODER 1; AT_2 + 
2 * p x ; 1 +ii *p y " jl "; A i 3 +£ *p x , 1 +2 *P 
y; *• **■ *’ : RETURN : REM graphics "A 
d“ and “DC” 




























26 


Mousehunt 


1080 KtM main Loop 

1828 LET r = INT (RND 543 : LET X3=m 
x + i r = 0 3 - r =13 : Lt i y a =m y -f ( r =2 3 - ( 
r =3 3 

1838 IF x3 <: 1 OR Xa >7 OR ya<l OR 
y a > 7 THEN GO TO 1828 
1848 Lt! m x = xa : Le: ! m y = y a : ruw n 
=2 ! 0 18 STEP 4 : Liil 3 $ (n 3 =3 5 (n 5 
43: NEXT n: LET 3$(223=CHR$ a(mx 
.. ?« y 3 

1858 BEEP ,85:58: FOR n=10 TO 11 
: PRINT OUER 1; INK 7;RT n,19;a$ 
: NEXT n 

1188 FOR n=l TO 185 L 
1118 LET i$=INKEY$ 

1128 IF i $ ;• "4” AND THEN G 

0 TO 1288 

1125 IF i 5 = ”8" THEN GO TO 1300 
1138 NEXT n: LET SC=£C- (£C > 8 3 : P 
RINT RT 14:25;S C; ” “: IF NOT S C 
THEN GO TO 2888 
1199 GO TO 1828 

1288 INK 7: GO SUB 183: LET px=p 

X +( i5 =“ 6 “ RND P X <73 -( i5 =" 7 “ RND 

P X >13: Lt! p y =p y + ( i $ = " 8 ” RND p 4 < 

73 -(i$="5“ RND py>13 

1213 INK 9: GO SUB 188: GO TO 11 

30 

1308 IF px =mx RND py=my THEN GO 
TO 1358 

1318 PRINT INUERSE 1;RT 17,28;“M 
ISSED! -: BEEP = 2,-48: BEEP ,3,-4 

5 : LET SC=SC-5i(SC>5) : PR INT RT 
14:26;sc;” ” 

1323 FOR p =0 TO 23: NEXT p: PRIN 
T PAPER 1;RT 17,28;“ 

1338 GO TO 1138 

1358 PRINT INUERSE 1;RT 17,21;“H 
IT!!": FOR S=45 TO 48 STEP -1: B 
EEP ,83,S: NEXT S: FOR S =48 TO 5 
8: BEER .03,5: NEXT S: GO TO 285 
8 

2383 REM end 

2818 PRINT INUERSE 1;RT 17,19; “T 
IME UP! ”: BEEP = 3,-48: BEEP 1,-5 

6 

2358 PAUSE 1: PAUSE 58 PRINT IN 
UERSE 1jRT 21,4;” ANOTHER GAME' 

«Y OR N 3 " 

2060 P0KE 23658,8: LET i $= INKEY5 
IF i$=”N“ THEN STOP 
2873 IF i$ ="Y“ THEN CLS : GO TO 
30 

2883 GO TO 2868 
9088 HtM init/diSp13 4 
9818 DIM 3(7,73: DIM 3$(243: DIM 
e $ 1223 

9823 FOR n =1 TO 21 STEP 4: LET a 
5 (n TO n+13 =CHR$ 17+CHR$ 7: NEXT 
n 

9830 LET mx =INT (RND573 +1: LET m 
y =INT (RND573+1: LET px =4: LET p 
y =4 : LP.T SC =138 

9283 INK 7: PRINT INUERSE 1;RT 3 
, 11.; “MOUSEHUNT" 

9218 FOR n =23 TO 135 STEP 16: FO 
R 0=3 TO 1: PLOT n+0,33: DRAW 8, 
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183: PLOT 23, 8 +n+ 0 : DRAW 113,8: 
NEXT 0 . NEXT O 

3228 PRINT PT 5,19;"LEUEL:";PT 1 
4,19; "SCORE: 188” 

9238 FOR n=73 TO 95 STEP 15: FQ 
0=8 TO 1: PLOT 151:0+0: DRAW 3 
,8: NEXT 0: NEXT n 

3248 FOR n =151 TO 247 STEP 15: F 
OR 0=8 TO 1: PLOT n+0,81: DRPU 3 
,13: NEXT 0: NEXT n 
3888 KtM t e V £ L/paint 
3518 PRINT FLASH 1;PT 215;" Whs 
t level? (1 TO 7) " 

3528 LET i$=INKEY$: IF i$<"l“ OR 
i$ >“7“ THEN GO TO 9528 
9538 LET l=UAL i$ 

95 + 8 PRINT PT 21.6 ;e$;AT 5:26; l 
9638 FOR 0=1 TO 7: FOR 0=1 TO 7: 
LET a (0,0)=INT (RND+7): FOR p=2 
TO 3 : PRINT OUER 1;AT n+2+p ; 0+2 
+1; PAPER 5(0,0);" NEXT p: N 

EXT 0: NEXT 0 
3513 INK 9: GO SUB 188 
3639 RETURN 
9888 REM UDG 

3818 FOR 0=3 TO 15: READ f: POKE 
USR "a"+0,r: POKE USR "3"+31-0, 
r: NEXT 0 

9828 DATA 3,3.3.1.1.1.1,31,3:3:8 
,128,128,128,128,248 
9899 RETURN 


Author: S. A. Fisk 


.1 Tl 


Good Shepherd 



Your task is to lead the sheep to good pasture, and protect 
them from the wolf, who’s hungry for a good bit of 
mutton.... When you have successfully fed the sheep, you 
take them back to the fold and take out a large flock to 
care for. You can kill the wolf by running him down with 
the shepherd; but watch out, because he’s a tricky 
customer! Keyboard controls are: left “Q”; right “W”; 
up “P”; down “L”. 


I 

RUN 

9300 


REM 

SET UP URRIR5LE5 RND 
RRRRY5 

8 

LET 

N=0 

11 

BORDER 3 

12 

DIM 

U (2*0 * 2) : D IM 5 (2*0,2) 

13 

let 

y = i 

14 

LET 

5=0 

17 

LET 

P = 0: LET G =2 

IS 

LET 

E =0 

30 

LET 

L = 1: LET T = 1 


REM 

LINES 35 - 45 JUST TURN 
CPPS LOCK ON 

35 

LET 

X = INT (PEEK 23658/8) 

40 

LET 

Y=2*INT (INT (PEEK 2355 

8/8) 

•-2) 
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45 

<17 


IF X =Y THEN RGNDOMIZE U5R 4 


50 

REM SET i 

UP INITIRL SO 


TO STRRT GRME 

50 

C L 5 


51 

LET R$ = ■•• 


52 

REM TEN 

SPRCE5 

53 

INK 0 


54 

BRIGHT O 


F,R 

PRPER 6 


70 

FOR n =0 ' 

TO 9 

30 

PR1?TT RT 

N , 0 .; a $ 

90 

NEXT n 


92 

PRINT RT 

2,0.; ”5co re . 

94 

PRINT RT 

4:0; '>eed : 

96 

PRINT RT 

5 0 ; 41 Lev-e t: :: 

97 

PRINT RT 

5,0; "Time . " 

93 

PRPER 7 


99 

PRINT RT 

0,0: INK 0;" 


"Hi -5 CO 


100 PRPER 5 
110 FOR N = 10 TO 21 
120 PRINT RT n I©.; R$ 

130 NEXT n 

135 PRINT RT 11 : 1;“THE FOLD” 

14-0 INK 7: PRPER 7: BRIGHT 1 
150 LET H$=R$-rH$ + :: 

160 FOR N =0 TO 21 
170 PRINT RT N»10;a$ 

130 NEXT N 

135 PRINT RT 0:10; INK 0;H 
190 PRINT RT 1,14-.; INK 0;“GOOD 
SHEPHERD” 

320 FOR N=1 TO 3+(L*5> 

324 LET R=2-rRND*19 

325 LET B=10+RND*21 

330 PRINT RT R , 5; INK 4;CHR$ 14 
4 

335 REM CHR$ 144= GRAPHICS R = 
GRASS 

340 NEXT N 

345 LET U (T ,2‘) =10+RND*5+L 
350 LET U(T t 1) =12+RND«3-L 
350 PRINT RT U (T,1) ,U(T,2) ; INK 
l;CHR$ 145 

370 REM OHRt 145= GRAPHICS "5” = 
UGLF 

330 LET 5(T-rL,l)=20 
390 LET 5 :T4L,2) =9 
400 FOR N = 1 TO L 
405 LET S (T+L-N, 1) =20 
410 LET 5 (T-rL-N , 23 =9-N 
420 NEXT N 
423 INK 3 

430 PRINT RT 5 iT+L > 13 , 5 (T4L ,23 ; 
CHR$ 145 

431 REM CHR t 145= QRRPHIC5 ” C s: = 

■5NEPNEPD 


435 INK 2 

440 FOR N = 1 TO L 

445 LET R = 5(T+L-N,13 

445 LET B=5 (T-rL-N , 23 

450 PRINT RT R •. B ; INK 0; CHR$ 14 


455 

450 


REM C HR $ 147= GRRPHIC5 
SHEEP 
NEXT N 


sj r> = 
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950 PRINT PT 5:7;L 

950 FOR N = 1 TO 90 NEXT N 

970 PRINT PT 4:5i :: L0U :: 

1000 REM MRIN LOOP TO RUN GPME 
1005 PRINT PT 2:7;5 
1005 PRINT PT 5:5;151-T; 

1007 IF 151-T <100 THEN PRINT :: 
1010 LET T=T + 1 
1015 LET P % = INKEY $ 

1015 IF T < 3tL PND P$ = :: : THEN LET 

P $ = *- U i: 

1020 Liz ! P=S ( I +L-1 : 1) + CP$ = i! L ;: ) - ( 
P$ = :: P :: ) 

1025 LET 5=5 (T+L-1,2) + (P$ = :: U i! 5 - ( 

H$ = :, Q” ) 

1050 IF P =20 PND 5<10 THEN GO TO 
5100 

1040 LET 5 T-fL : 1) =P 4 (P <2 ) - i P >21) 
1050 LET 5 (T-fL , 2) =5 -f (5 < 10 ) - (5 > 51 

) 

1060 LET P =PTTR (5 (T-fL , 1) , 5 (T-fL , 

2) i 

1055 IF P = 124 THEN GO 5U5 5000 
1070 IF P = 121 THEN GO 5U5 5500 
1050 IF P = 120* THEN GO TO 5000 
1090 IF P = 4O THEN GO TO 5000 
1092 IF 5 (T-fL : 1) =5 (T-fL-1,1) THEN 
GO TO 4500 

1100 INK 5 

1101 PRINT PT 5 (T-fL : 1) ,S (T+L ,2) ; 

CHR $ 145 

1104 LET P=5 (T-fL-1 . 1) 

1105 PRINT PT P :5 (T-fL-1 :2) ; INK 
0;CHR* 147 

1110 PRINT PT 5(T-i:i):5(T-1:2): 


1200 IF NOT y THEN GO TO 1500 
1210 LET P = W (T-1 : 1) + (U (T-1:1) <5( 

T : 1) / 

1215 LET P=P-(U (T-l1) >5 (T1) ) 
1220 LET 5 =U (T-l : 2 ) -f (Lj (T-l ..2> <5 ( 

T : 2 ) ) 

1222 LET B =B- (U (T-l ,2) >5 (T •. 2) ) 
1225 IF PTTR (P,5)=I20 THEN GO T 
u z200 

1250 Liz ! U ( l .. 1 ) =P -f (P < 5) - (P >20 ) 
1240 LET y (T : 2) =5 -f (B < 11) - (B > 50) 
1250 LET P =PTTR (U (T . 1) , U (T 2 ) ) 
1250 IF P = 120 THEN LET E = 1 
1270 IF P = 125 THEN LET U (T ; 1j =U ( 
T-l : 1) 

1275 IF P = 125 THEN LET yfT,2)=U( 
T - 1 : 2} 

1250 PRINT PT y (T-1,1) , y (T-l ,2) 

1290 PRINT PT y (T : 1) ,U(T,2) ; INK 
1;CHR$ 145 

1500 IF E THEN GO TO 5500 
1510 IF T = 152 THEN GO TO 4000 
2000 GO TO 1001 
5000 REM EPTEN GRP55 
5005 BEEP :02: 50 LET 5=5 + 1: LET 
F =F + i 

5010 IF G <F THEN PRINT PT 4=5; 1: 0 
s K . :: 

5020 RETURN 

5100 LET 5 (T+L s 1) =H : LET 5 (T-fL » 2 
=B 
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3110 Gu *u 1050 

3201 'LET LI (T , 1) =H : LET U (T , 2) =5 ; 
GO TO 1250 

LOGO REM LOSE - OUT OF TIME 
4005 PRINT RT 13:0;"TIME UP! 

'-YOU SHOULD"" 

4010 PRl\rC -BE RRCK BY**' “NQU, YO 
U :: LOSE ! 

4020 GO TO 6550 

4500 LET R=S(T+L-l*2) 

4501 IF 5 (T+L : 2*' < >9. THEN SO TO I 
093 

4505 FOR N =L TO 1 STEP -1 

4510 LET S(T+N-l .2)=5(T+N-2,2) 

4520 LET S(T+N-l:1) =S (T+N-2,1) 

4530 NEXT N 

4540 GO TO 1200 

5000 REM LOSE - SHEPHERD 

COLLIDES WITH R SHEER 
5010 PRINT RT S (T+L-l, 1) ,S (T+L-1 

s 'd. < 

5015 FOR N = 1 TO 14 

5020 PRlrrr RT 5 (T+L: I) , 5 (T + L, 2); 

OHR $ 145 

5025 SEEP RND**01,I0+RND+I5 
5030 PRINT RT 5 (T+L . 1) . S (T+L -.2) ; 
CHR$ 149 

5035 SEEP RND*.01,10+RND*15 
5045 NEXT N 
5050 INK 0: PAPER 5 
5050 PRINT RT 13 > 0 ; ""YOU SHOULD' 
■LERD THE 

5055 PP1?PT 5 "SHEEP: NOT " ' CRRSH I 
NTO" •' "‘THEM! 

5070 GO TO 5550 
5500 REM UOLF KILLED 
5500 LET i,i=0 

5510 FOR N = 20 TO 45 STEP 1 

5511 LET R=w(T-l:l) 

5615 PRINT RT R ,U (T-1,2) INK 2; 
OHR $ 145 

5615 SEEP s 004:N 

5520 LET R=g(T-l:l) 

5521 PPl?rr RT R .. w (T-l ,2) ; INK 3; 
OHR $ 147 

5522 BORDER (N-20),4 

5523 LET R-U (T-l . 1) 

5524 PRINT RT fl,U(T-l,2); INK 1; 
OHR $ 149 

b b 2 b N b X ! N 

5630 FOR N = 1 TO 4 + L 

b532 L bT S =5 + 1 

5534 PPl?-rr RT 2:7; 5 
5536 BEEP =1:20 

5535 NEXT N 
5555 BORDER 3 
5590 RETURN 

5000 REM WON - NEU LEUEL 

5005 GO SUE 5200 

5007 LET G=G +2 

5010 FOR N = 1 TO (150-T ) /15 

5012 LET 5=5+1 

5014 PRINT RT 2,7; 5 
6015 SEEP =1:30 

5015 NEXT N 
5020 LET L =L +1 

5025 IF L = 9 THEN LET L=S 
5030 LET T = 1 
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5050 LET F = 0 
5100 GO TO 60 

5200 REM CHECK ENOUGH FOOD EATEN 

5210 IF G ;• =F THEN GO TO 5400 

5230 IF NOT W THEN LET U=1 

5240 FOR N=1 TO 19 

5250 BEEP .05,10+N 

5250 NEXT N 

5290 RETURN 

5400 REIi LOBE - NOT FED ENOUGH 

FOOD 

5401 PRINT AT 13=0;“YOU DIDN'T' 
•"LET THEM 

6405 PRINT “EAT ENOUGH i: “ FOOD i Y 
OU ts ■' “LOBE i 
5410 GO TO 5550 

5500 REM LOBE - WOLF EPT5 SHEER 

5501 INK 0: PAPER 6 
5505 FOR N = 1 TO 10 
5510 BEEP .5/N : -10-N 
5515 NEXT N 

552 0 P RI NT PT 13,0 ; :: 5 0 RRY , Y 0 U : ' 
“LOST: BUT " 

5540 PRINT 'THE UOLF “ENJOYED 

" ' “HI5 LUNCH! " 

5550 REM LOST - BET HIBCORE AND 

OFFER NEU GAME 

5551 FOR N = 1 TO 9 

5552 BEEP RND* = 1 ■. 10 + (RND*40) 

5554 NEXT N 

5555 PRINT '“PRESS Y TO"““PLAY A 
GAIN" 

5900 IF 5 > H THEN LET H = B 
7000 LET A 5 = INKEY $ 

7010 IF A$< > "Y" ThEH GO TO 7000 

7020 GO TO 10 

9000 REM UBR GRAPHICS 

9005 RESTORE 

9010 FOR N=1 TO 5 

9020 READ A$ 

9030 FOR M =0 TO 7 
9040 READ A 
9050 POKE UBR 
9050 NEXT M 
9070 NEXT N 
9050 RETURN 

9100 DATA " A “ ,0:0,0 : 0 : 5 : 42,45,12 


9110 DATA 
: 155 

9120 DATA 
5 : 54 : 54 
9130 DATA 
170 

9140 DATA 
6 : 42 :200 


"B 4t , 0,0,0,125,96,62 , 6 
“C",39,117,35,35,252,3 
D " , 0,0,0,2,7,124,124 , 

• F ;i , 54-, 73,45,25,124,16 


9150 DATA '• F " , 125 s 56 •. 59,35,166.9 
0 , 59:100 

9200 REM CRIMMOND 

9210 FOR N=1 TO 34 

9220 READ A: READ B: BEEP A/5,5 

9230 NEXT N 

9240 DATA 2.0.4:9:1,10,1:7,4,12, 
1,10,1.7 

9250 DATA 4,5,2,4,4,5,2,9,2,9,2, 
7:2,7:4:11,2 

9250 DATA 11 ; 10:12,2:9,2:9:2,10, 
2,9,4,7,2,9,2 
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9270 DATA 10,2,12 .,2, IS ,4,9,2,9 :2 
,7,2,10,2,14 
9280 DATA 4,5,2,4,8 ,5 
9290 RETURN 

9300 REM INITIAL INSTRUCTIONS 
9310 INK 0: RARER 6: BRIGHT I: C 
Ls 

9320 PRINT AT 1,9;;"GOOD SHEPHER 
D. " 

9330 PRINT AT 3,3;"COPYRIGHT "; 
9335 PRINT ;“S.SPRINGETT 1984“' 
9340 PkINI '“Your task, is to lea 
d the sheep" 

9345 fRINT “to good pasture, 
and protect" 

93d8 PfINI “them f r om the «o l f , 
who's hungry"' 

9355 PfINI "for a nice fait of mu 
tton . , . “ 

9360 PRINT ''"You've only a lim 
ited time to" 

9361 RfINI "ensure the sheep hav 
e had enough" 

9362 PRINT “to eat, and avoid 
or kill the" 

9363 PFINT "w 0 l f , 0 f c0u r se MOu 
must not run” 

9364 ffIN! "int o t h e f I o c k it s 
elf, or the" 

9365 ff iNi “sheep wi 11 be s c a 11e 
red and lost" 

9366 GO SUB 9080: REM USR GRAPHI 
CS 

9367 PRINT ' ; TAB 7 ;”********,**** 

9368 GO SUB 9280: REM CRIMMOND 

9370 PR INI '" Press any key to 
continue" 

9371 IF INKEYS<>"" THEN GO TO 93 
71 

9372 IF INKEYS="" THEN GO TO 937 
2 

9373 CLS 

9374 PRINT ''•'“When you have 
fed the sheep," 

9375 fRINI "take them back to th 
e f o l d (y o u " 

9376 PRINT "can get in only via 
the door you" 

9377 ffINI "came out of) to qe 
t a new and" 

9378 PRINT "larger flock to care 
for," 

9379 PRINT " " '"Ki l l the wo l f 

by running himdown with the 
shepherd: fautw a tch o u t, be c a us 

e he's a t ric k y cu s t om e r! “ 

9387 PRINT ' ' “ press any key t 
o continue" 

9388 IF INKEYS<>“" THEN GO TO 93 
88 

9389 IF INKEY$="“ THEN GO TO 938 
9 

9398 CLS : PRINT 'TAB 12;"CQNTRQ 
LS “ 

9393 PRINT ' ' ; ;AB 5;“Keyboard co 
ntroIs are:" 
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94@0 PRINT ' •’ ;TAB 10.; “ue t T - 
9405 PRINT TAB 10 J ‘’Right : 
9410 PRINT TAB 10; "Up : 
9415 PRINT ;TAB 10;"Down; 


9420 PRINT " ;IAd 

f ding ! ■" _ 

9430 PRINT ' • ; iHD 
to start" 

9440 IP INKEY$="S 


7;"Good Shephe 
5;"Press ”"S“” 
THEN GO TO 94 


IP 


IN KEY 5 = " 
9440 


THEN GO !0 94 


0: B 


50 

9441 
50 

9445 GO TO 

Q950 REM WORKING SUBROUTINES 
9970 PAPER 7; INK 0: BhIgHI 
ORDER 
9975 STOh 
39-30 SAME 1 
39-32 PRINT 
TO UERIPY" 

9986 UERIrY 

9987 PRINT 

9989 STOP 

9990 INPUT “Prog ram 
9933 ^IaUE H 1 “®“; l;A$_LINE 9300.^ 

QQQ4 UFRIPY T liH?: Ff'.-L!’!! 1--3! 

7“ UERIPIED" 

9995 STOP _ + , =£ - l£5= 

qqq 7 input “program name -.o i-r-.H-- 

E - “; LINE A5 

9998 ERASE "m";1;H5 

3999 STOP 


•SHEPHERD" LiNd 9380__ 
“REWIND AND play !HHt 

“SHEPHERD"_ 

“PROGRAM UEkIPIEd" 


name to save 


Author: Rev. S. Springett 


Anagram 



Here is that good old puzzle where you have to sort out 
the letters of a mixed-up word. All the words are plain 
English, so you should have nothing to worry about. 
Except the fact that they won’t keep still... 


100 DIM m$(30) 

210 RANDOMIZE 

295 GO TO 1000 

300 wtH ** Message ** 

310 PRINT PT 20,1; BRIGHT 1; PL 
P:5H 1; PAPER 5; INK. 0;m$ 

320 GO SUB 400 

330 IP INKEY $ \ > THEN GO TO 33 

0 

335 LET k * = INKEY 5 : IP = THE 
N GO TO 335 

337 IP k$>=“A“ AND k 5 < = :I Z“ THEN 
LET ks =CHR $ i CODE ( k $• -32 ) 

340 PRINT AT 20,Ij" 

345 RETURN 

350 hum ** ins tr uction * * 

360 PRINT AT 20.1; BRIGHT 1; PA. 
PER 6; INK 0:m$ 

335 RETURN 

400 Ktti ** i-'i ?S ** 

410 PGR i=1 TO 2 

420 BEEP 0.05.50; PAUSE 2 
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Anagram 


430 NEXT i 
445 RETURN 

450 Htfi + * Draw border 44 
450 PRINT RT 8,0; “I* FOR i =1 T 
0 20: PRINT RT i ,0; : NEXT i 

455 PRINT RT 21,8; fc": FOR i=1 
TO 38: PRINT RT 21, i; ‘W . NEXT i 
478 PRINT RT 21,31; d FOR i=2 
8 TO 1 STEP -1: PRINT RT i,31;” I 
“: NEXT i 

475 PRINT RT 8,31; “T* : FOR i=30 
TO 1 STEP -1: PRINT RT 8,i;‘ = 
NEXT i 
495 RETURN 

e 88 REM 4 * Raspberry 44 
518 BEEP 1,16: BEEP 1,12 
528 BEEP ,5,25: FOR X=23 TO 17 
STEP -8,5: BEEP .1,X: PAUSE 2: N 
EXT X 

545 RETURN 

b'58 wtH 44 Congratulations 44 
555 RESTORE 578 

558 READ n,p: BEEP n*8,25 , p IF 
n >8 THEN GO TO 558 
570 DATA 1,12,1,14,1,15,2,17,2, 
5,12 


572 DATA 1,17,1,16,1,17,2,19,2, 
5,14 

574 DATA 1,14,1,15,1,17,1,5,21, 
8,5,19 

575 DATA 1,19,1,17,1,17,1,15,1, 
14,1,15,3,17 

558 DATA 8,8 
595 RETURN 
999 REM 

1888 Htli 44 5how instru ct ions + + 
1881 REM 

1840 BORDER 8: PAPER 7: INK 8: C 
LS 


1845 PRINT RT 1,8; 

1858 RESTORE 5888 

1868 READ i $ : IF ijo THEN PR 

INT ij_ SO TO I860 

1188 Let !B$ = “Fress any Ka4 to co 

ntinue.,, ” : GO SUB 388 

1999 REM 

2888 ReM 44 Generate anagram 44 

2881 REM 

2848 RANDOMIZE 

2858 LET nwords=58 

2068 D 1 M u l n 0 r d s 5 

2878 LET wn=INT (RND *n W 0 rd S) 41 

2858 IF U(wn)=l THEN GO TO 2878 

2898 LET U Urn 5=1 

2188 RESTORE 5588 

2118 FOR i=l TO ijifl : READ $: NEX 
i i 

2128 FOR i=1 TO LEN 
2138 LET ci=CODE w$ii5 -10 
2148 IF ci<65 THEN LET Ci=C 1 +26 
2158 LET w$ : i ) =CHR$ i Ci) 

2168 NEXT i 

2288 LET X$=w$: LET 35 = : ‘” 

2228 LET ch=INT (RND+LEN x$5+i 
2238 Lei a 5 =a$+x$(ch5 
2248 LET X 5 =x$( T0 Ch-1) + X $ i C h + 
1 TO 5 
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2250 IF k$> u:! THEN GO TO 2220 
2250 IF a $=** THEN GO TO 220O 

2999 REM 

3000 hum Display puzzle ** 

3001 REM 

3050 BORDER 0: RRRER 0 CL5 
3050 RRINT RT 0:0; 

3070 FOR i=7 TO I STEP -I 
3050 FOP j=i TO 3 
3090 RRINT RRRER i 

3100 NEXT j 
3110 NEXT i 

3200 LET bi=1: LET bC =0: LET n l = 
I: PET nC =LEN a* LET Ch=l 
3220 PRINT RT bLbc; RRRER 5.; IN 
K 9 ; a $ 

3250 RRINT RT bl,bc; RRRER 5: :: :: 
3250 RRINT RT n l . n c; RRRER 5; IN 
K 9 ; a $ ( r h ) 

3270 LET n c =n c -rl IF nc >31 THEN 
Lp \ n c =0 : Lp ? n l=n U3 
3250 IF n l >20 THEN LET nl=I 
3290 LET b C = b C +1: IF be>31 THEN 
LET b c=0: LET bl=bl+3 
3300 IF b l >20 THEN LET bl=I 
3310 LET ch=ch+l: IF ch>LEN 3$ T 
HEN LET c h =1 

3320 IF IN KEY $ = THEN GO TO 325 

0 

3400 DIM b$ (32) 

3420 RRINT RRRER 5;RT bl,0;b$;RT 
nl,0;b$ 

3999 REM 

4000 hpM ** Set ansuer ** 

4001 REM 

4050 BEER ,25,12: BEEP ,5,17 
40 70 Lp * m 5 = '■ OK - w h a t s t he u o r 
d then ? JS : GO SUB 350 
4050 INPUT !S > > s: ; LINE r* 

4055 LET n 5 = ;: 

:l : SO SUB 350 
4090 LET Ch =0 
4100 FOR i=1 TO LEN r$ 

4110 IF f $ (i ) = 1! ,s THEN GO TO 415 
0 

4120 LET Ch = Ch +1: LET r$ (Ch) =f$ ( 
i ) 

4130 LET xC =OODE f $ ( C h) 

4140 IF x c>90 THEN LET r$ (Ch) =CH 
R$ (xc-32) 

4150 NEXT i 

4170 LET f$=r$( TO Ch) 

4499 REM 

4500 REM 

4501 REM 

4550 IF hi $ < > f $ THEN LET m$ = 5S URO 

NG - you can *' t ca t ch i t ! :s . SO 5 

UB 350: SO SUB 500: PRUSE 0 
4570 IF y$ = f5 THEN LET m$ = :: UELL 
CRUGHT - you're riQht ! ss : GO SUB 
350: GO SUB 550: RRUSE © 

4500 Lp ! -is 5 = s: y i L 1 you try again 
? (Y/N) S1 : GO SUB 300 

4550 IF K$O s: M 5: THEN BOPDEP. 7: R 
RRER 7: INK 0: CLS : GO TO 9999 

45 :*0 Ir u $ = r 5 ■ HpN GO ! 0 2000 
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4-680 IF w$or$ THEN GO TO 3300 
7993 REM 

8030 wlM * Instruction Data * 
3001 REM 

8010 DATA " ANAGRAMS ", 

80S3 DRTR “Here is that good old 
_puzi is" 

8030 DA ! R “where mou ha ve to so r 
t out" 

804-3 £>w i w “the Letters o f a s> i xe 
d up word."," “ 

3060 DR!R "All the words are pLa 
in English," 

■6060 DATR "so you should have no 
thing to" 

60 70 DRTR " w o r r y about. " ... " “ 

8080 DRiR “Except the fac t tha t 
they “ 

S090 DRTR "won ' t Keep still..." 
8130 DRTR “©“ 

8600 DRTR "OXDOB“,“NBSFO".“UYMKU 
, “ZKCDO “ "i.-JYXOI" 

8610 DRTR “UYXDR".“KBOEO",“V5WSD 
"CDENI" "08KCC" 

8620 DRTR "UKGIOB",“BOQKBN",“MOX 
DBO","ROKUDR“ , "YLDKSX“ 

8630 DRTR “MYUYEB",“ZYUSMO"."MYU 
UYX” , "KDDKMU" "l-JECMUO" 

664-0 DRTR “U5MQXM0" , "ZB5FKD0" . "C 
DKDSYX",“FORSMUO",“ZEBZYCO" 

8650 DRTR "R5DX0CC" . "OWYDSYX" ,“B 
0 FOB CO" “ZKD50XD" , "LKBQK5X" 

6660 DRTR “5XDQB0CD","BOUKDSYX", 
“KDDSDENO","MYXDBKBI".“ZYUSD5MC" 
6670 DRTR "OWZUYIOB" , "PBOREOXD" . 
“LECSXOCC","NYMEWOXD" . “MROUSMKU" 
8680 L>RTR "NSB0MD5YX" , “QUOBOOXMI 
" , “COXDSUOXD" .= “SUUONSKDQ" , "RKZZ5 

x Q Q!j !! 

8630 DRTR "FOOODKLUO","QX0BQ0D5M 
",“SWZYBDKXD",“CELCDKXMO",“MRKBK 
HDDS" 

8930 GO TO 3393 

3000 INPUT "ri Le to save ? *■*: LI 
NE t $ 

3013 SRUE *■'»<-: 1; f $ 

3020 GO TO 9393 

3100 INPUT “rile to erase ? L 
INE f $ 

3110 ERASE "a";1; f$ 

3120 GO TO 9393 


Author: P. Boocock 


Hurdles 



A game which allows you to either play against the 
computer or against another player. You have to jump a 
number of hurdles but you only have a limited amount of 
energy - use this up before the race ends, and you 
collapse. Typing in “comp” will give you a 
demonstration game. 

5 POKE 23658.0: GO TO 1000 

8 REM HURDLES© 

9 REM 8M Mf.P.Fox 

10 LET TIME=TIME+I: PRINT RT 2 
1,15;TIME;“ ": IF FI>550 THEN PR 
INT RT 19,10;NS;" HR5 COLLAPSED" 

: GO TO 50+(1350 AND (F2>600 OR 
T 2 < > 8 ) ) 

20 LET 3 = (IN 54-510 AND n$o"co 
Rip “ 5 + ( (254- (HI >20 AND H2 >205 AND 
N5 = "C0mP"5 5 : IF 11=0 AND 3 <>255 
AND 3 0 191 THEN GO SUB 100: LET 
F1=F1+1: IF 3=253 AND FI<500 TH 
EN GO SUB 100: LET Fi=F 1+2+(-JUMP 
< > 0 5 

30 LET 3= (IN 53486 AND n$O”C0 
ffiP“5 +(255-( (h1<7 AND h1>35 OR (h 
2 < 7 AND h2 > 3) } AND n $ = “ C 0 Hi p " 5 : I 
F ti=0 AND 3 0 255 AND 3 0-191 AND 
ST >1 AND JUMP =0 THEN PRINT PAPE 
R 8; INK 0 ; AT 14,5;"*”; INK 2 
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INK 6.; AT 15,5; M |"; INK 2; ”*■*'; 

AT 16,5; AT 17:5; INK 7;” 

: AT IS., 5.;“ : LET Fl=FI+i: LET 

.JUMP =4 

43 IF JUMP O 0 THEN LET JUMP=JU 
MP-1. LET F1=F1+1; IF JUMP=0 OR 
•5 =255 THEN LET JUMP =8: PRINT PRP 
EP 8;fit 14,5;" ";RT 15,5;” 

RT 16,5; INK 8;"#”; INK 2; $”;RT 
17,5; INK S.;”i”; INK 2; ; RT 1 

8,5; 

58 IF F2 >558 THEN PRINT RT 9,1 
8.; M$; ” HRS COLLAPSED” ; GO TO 98 + 
(1318 RND (Fi>508 OR Tl< >0)) 

68 LET 3= (IN 57342 AND l»$o"co 
B»P") + (254-(h3>20 AND h4;28) RND 
»$ = , ‘COfflP“) ; IF 12=8 AND 30255 A 
ND 3 0 191 THEN LET F2=F2 + 1; GO S 
UB 288 IF 3=253 RND F2<588 THEN 
GO SUB 288: LET F2=F2+2+(JUMP2< 
>8) 

78 LET 3= (IN 51438 AND B$O"C0 
IBP”) + (255-( (h3<:7 AND h3>3) OR (h 
4<7 AND h4>3)) AND m $ =“comp”): x 
F 1 2=8 AND 3 0 255 RND 3 0 191 AND 
ST2 >1 AND JUMP2=0 THEN PRINT PA 
PER 8.; AT 7,5;” I”; INK 2 ; * "; INK 
5.; AT s , 5.; ” i 1 ; INK 2 ; ; AT 9,5 ; 

“^ : ;PT i0 : 5; INK 7; " " ; AT 11,5 

“ : let F2=F2+1: LET JUHP2=4 

50 IF JUMP2O0 THEN LET JUMP2 = 
JUHP2-1; LET F2=F2+1: IF JUNP2=0 
OR 3=255 THEN LET JUMP2=0: PRIN 
T PAPER 5 ; PT 7:5; :! ; PT 8,5; !t 

!: .; PT 9 5 ; 15 | ; INK 2; z :: ; INK 6 ; 
PT 10,5; i 5 ; INK 2; .; PT 11,5.; :; 

90 PRINT PT 2:4; FLASH (FI>500 
) ; FI; 55 iS ; PT 2:27; FLPSH (F2>500) 

; F 2 .; 11 5: : IF IN KEY $ < > sl S is THEN GO 
TO 10 

95 GO TO 90+45 PND INKEY $<> 8! d 
) + (1305 PND INKEY $ = :: a !: ) 

99 PEN TRACK:HPN1 
100 LET PP=(((H2=5 OR H2=5) OR 
(HI=5 OR Hi=5)) PND JUMP=0): IF 
PP=i THEN GO TO 170 
110 IF Hi>0 PND HI<25 THEN PRIN 
T PT 17,HI :‘J J‘;PT 18, Hi; "FI 
PT 19 * HI ,* "j 

120 IF H2>0 PND HP<26 THEN PRIN 
T PT 17 ; H2 ; l A _ ! ; PT IS . H2 ; "T\ 

PT 19 : H2 ; :: j 

130 IF Hi=0 THEN PRINT PT 17,Hi 
; “_; PT 18 :Hi; " ; PT 19 ..Hi; :i 

: IF H1<21 THEN LET H1=H(Hi) : 
LET M1=M1+1 

140 IF H2 =0 THEN PRINT PT 17,H2 
: ”_ 51 .; PT 18 : H2 •: :! :: •: PT 19 , H2; !: 

: IF Hi<21 THEN LET H2=H(HI): 
LET Hi=Hl+i 

150 LET Hi=H1-1; LET Di=DI+i; L 
FT H2 =H2-1: PRINT PT I . 4;DI: IF 
Hi>20 PND T1 =0 THEN LET END1=END 
1-1 IF END1<25 THEN PRINT PT IS 
: END I; PAPER 8 ; ! ‘ / ; PT 19 , END 1 -1 

"/ : IF END I =4 THEN P9.1?rC PT 1 
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S,13.;N$;“ FINISHED" : LET Ti=TIME 
: IF T 2 < >0 THEN GO TO 1400 
150 PRINT AT 20.01; OUER 1; ("/" 

RND Cl>0); OUER 0;“_": LET 01= 

01-1+(25 RND 01=03 
170 LET ST=(5T +1 RND ST <33+(7 R 
ND JUMP < >0; : PRINT RT 17.5; INK 
5.; PR PER 5; (" #" AND ST <43 ; INK 2 
; ( '■'■►“■ RND ST <23 ; ("v" RND (ST >2 R 
ND ST <43 3; AT 15.5; ( " RND ST =8 

3 .; ( t\ RND ST = 13 ; ("ft" RND ST =2 
3 : ( " ?*■■■ RND ST =33 
ISO RETURN 

199 REM THE TRACK:MRN2 
280 LET PR =( ( (H3=5 OR H3=6 3 OR 
<H4 =5 OR H4 = 53 3 AND JUMP2=8 3 : IF 
PR=1 THEN GO TO 278 
218 IF H3 >8 RND H3<26 THEN PRIN 
T RT 18, H3; 1 A _ : ; AT 11,H3; “W\ 

RT 12 . H3 ; "| " 

228 IF H4>8 RND H4<25 THEN PRIN 
T RT 18 , H4 ; "A : RT 11 . H4 ; ''?) 

RT 12 , H4 ; "j “ 

238 IF H3 =8 THEN PRINT RT 18.H3 
RT 2 1, H3.; “ " ; RT 12 , H3 ; " 

IF M2<21 THEN LET H3=H(M23: 
LET M2 =M2 +1 

248 IF H4 =8 THEN PRINT RT 18,H4 

i"_" RT 11, Hi;" " ; RT 12,H4;“ 

: IF M2 <21 THEN LET H4=H(M23 : 
LET M2 =M2 +1 

258 LET D2 =D2 + 1; PRINT RT 1,27; 
D2: LET H3=H3-1; LET H4=H4-1: IF 
M2 >28 RND T2=8 THEN LET END2 =EN 
D2-1; IF END2 <25 THEN PRINT RT 1 

I, END2.; PAPER 5 ; "/ " ; RT 12 , END2- 
1; “/ IF END2 =4 THEN PRINT RT 

II, 10;M$;" FINISHED". LET T2=TIM 
E: IF T1< >8 THEN GO TO 1488 

260 PRINT RT 13,02; OUER 1;(”/“ 

RND 02>83; OUER 8;“_LET 02= 

02-1+(25 RND 02=83 
278 LET ST2 = (ST2 + 1 RND ST2<33+( 
7 RND JUMP2O0 3: PRINT RT 18,5; 
INK 6; PAPER 8 ;(“#" RND ST2<43 ; 
INK 2; (“«h" RND ST2 <23 ; ("v" AND ( 
STD >2 RND ST2 < 43 3 ; RT 11,5; ("A*" 
RND ST2=83 ; ("A" RND STD = 13 ; ("» 
" RND ST2=2 3 ; (" ?V RND ST2=3 3 
268 RETURN 

999 REM HURDLE VARIABLES 
1083 LET h $ = "Ha r r y": LET hi=408: 

DIM H(283 ; FOR 0=1 TO 28: READ 
H (03 ; NEXT 0: FOR C=USR "fi" TO U 
SR "0“+7; READ fl: POKE C.fl; NEXT 
0 

1813 LET T2 =8; LET T1=0: LET F2 = 
8 ; LET F1=8: LET 01=25: LET 02=2 
5; LET D1=2: LET D2=2 
1328 LET END!=55: LET END2=55: L 
ET N$ = ““. LET M$ = "" : LET ST2 = 1: 
LET -JUMP2 =8 : LET ST = 1: LET JUMP = 
0; LET TIME=8. LET Hl=25: LET H2 
=35: LET H3=25: LET H4=35; LET M 
1=1: LET M2 = 1 

1333 BEEP ,85,23: BEEP ,1,35 : PR 
PER 7: INK 3: BORDER 7 CLS : PR 
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INi : PRINT WELCOME TO HUR 

DLING 


_ By Mr.P.Fo 
x This program 

pro vides a hu rd i in " s i mu i a ti 
on game for your ZX SPECTRUM 
micro.lt is entirely wri11 e n 
in BASIC. 

104-0 PRINT hi £0,0; “ press Y f 
or instructions or any o 

ther to start 

1050 LET a $ = INKEY $ IF a$ = "" THE 
N GO TO 1050 

1050 IF a $ = “y" THEN GO TO 1300 
1070 BEEP .05,20: BEEP .1,35: CL 
S : PRINT RT 7,0;"You can jump o 
nly when stride";RT 0 , 0 ;h $;" h 0 1 
d s the t r a c K r e c 0 r d " .; RT 1 , 0 .;“ w i t 
h a time of “ h iRT 3,0; " Fo r c 0 m 
pu te r c 0 n t r 0 11ed r unner enter 
'comp-' for runners name Enteri 
n g bo t h as •' c 0 m p ' w ill ai p a 
demo game";RT 3, 0 ;"PLAYER‘1 ent 
er your name:": INPUT "type name 
then press ENTER "; LINE N 

$: PRINT RT 3,0;“PLAYER 1 is cal 
led “;N$;“ 

1030 BEEP .05,20: BEEP .1.35: PR 
IN 1 RT 10 , 0 .;"PLAYER 2 enter y 0 u r 
name:": INPUT "type name then p 
ress ENTER ”; LINE M$ BEEP 

.05,20: BEEP .1,35: PRINT RT 10 
,0;"PLAYER 2 is called ";MJ;" 


1090 PRINT RT 12.10; “DON T FORGE 
T": PRINT "for PLAYER1 1-5 JU 

MP 0-T MO 

UE U,i FAST) for PL AYER 2 6-0 JU 

MP P-Y MO 

UE(0 FAST)"; PRINT RT 19.0;” to 
ABORT press "s" then a- ";RT 

21,5;"PRESS KEY TO START": PAU5 
E 0 

1099 REM THE SCREEN 
110.0 BEEP . 05,20 : BEEP . 1,35 : PR 
PEk 4-: CLS : PAPER 8: PRINT PAPE 
R 6;AT 11, 0 ;" 

no 

.2 _ 


1110 PRINT PAPER 6; RT 18,0.;" 

no 
. 1 


1120 PRINT RT 10.0;" 

-“ .; RT 17,0; "_ 

:: 


1150 HR INI RT 9.5; " 4 "; INK 2 : "s 

INK 5;RT 10,5;"i"; INK 2;“**“; 
T 11,5; INK 2; 

1150 PRINT RT 16.5;"4"; INK 2;‘ 
INK 6;AT 17,5;"#"; INK 2; 

RT 18,5;"/^" 

1170 PRINT RT 3,0; PAPER 7; INr 


R 

z 
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1180 PRINT Hi 5., 8; PAPER 3; 


PRINT AT 8,8; PAPER 7; "PLAY 
PLAYER STATUS planer 2 "; I 


‘ d i s t 
f u e l 


1198 
ER 1 
NK 5 
i 

I 

1288 POKE 23553,8: 
ON YOUR HARKS 
38: NEXT C: PRINT 
T SET 


UUA3L3. 


d i S 
f U £ 


PRINT AT 21,8 
": FOR C=1 TO 
AT 21,8; ! ' GE 
Y FOR C = 1 TO 


88: NEXT C: PRINT AT 21,8; FLASH 
1; “ GO! ! i ; FLASH 8; " 

1218 BEEP ,885,-18: BEEP ,885,-5 
BEEP =82,5: BEEP ,4,18: PRINT 
AT 21,10; ’‘time " : GO TO 18 
1299 REH INSTRUCTIONS 
1388 BEEP ,85,20: BEEP ,1,35: CL 
5 PRINT AT 1,8;" INSTRUCTION 
5 TO HURDLING ® 


1318 PRINT : PRINT ” A 4 

88m hurdle gas? for two. Phis ga 
nse requ ires ski 11 tow in. The run 
ners are iL lustratedon the left 
of the screen and are stationa 
ry _o the r than teg & a r m mo vemen t 
. r r o m the right g r a d u a i 1 y m o 
ve hurd les whieh youjunp in orde 
r t o c o n t i n u e t h e race" 

1328 t-'t-: I NT " An added problem 
is fuel youhave only a set amou 
nt of energy, use this before the 
race ends and you collapse": P 
PINT . PRINT " PRESS KEY TO C 
ONTINUE 

1338 PAUSE 8: BEEP .85,28: BEEP 

,1,35: CL5 : PRINT AT 8,8;" FUEL 

JUMP -Ipt SLOW 

SPEED -Ipt FAST 

SPEED -3Pts" 

1348 PRINT “KEYS 


S-P 

after pause for 
UMP 

CUE(U FAST) for 
UMP 

OUE(0 FAST)" 
1358 PRINT " 
d with SyS pts 
i s e l y ) 

s the JUMP and 
um p key do w 

jump 

s you one spa 
ast two(if fue 
88pts) 

NG 


u s e p 1 a y d -s t a r t 
PLAYER1 1-5 J 
0-T M 
PLAYER2 6-8 J 
P-Y M 

You are provide 
o f f u e l l use it w 
Jumping require 
MOUt k e y s,Ke e p j 
f o r d u r a t i o n o f 
Slow speed move 
e per move and £ 
used is below p 
GOOD HURDLI 
RE55 KEY TO CONT 


INUE 

1368 PAUSE 8: BEEP =85,28: BEEP 
,1,35 CLS : GO TO 1878 
1399 REM THE END 

1488 FOR C =1 TO 288: NEXT C : BEE 
P ,1,28: BEEP ,85,15: BEEP ,1,25 
: BEEP .2,28 BEEP ,3,15: BEEP , 
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2, 18: BEEP .i,0; BEEP ,05,5: BEE 
P ,05,10: BEEP ,05,10: BEEP ,2,5 
: BORDER 7: PAPER 7: CL 6 : IE fP 
>600 THEN PRINT RT 15,0;®$; (*’ MO 
u w a s t e d y o u r fuel" R N D d 2 < 3 5 0 ; 

( :: a Lm 0 s t t h era " AND d2 > 349) 
1410 IE PI>600 THEN PRINT RT 10, 
0 ,; n $ j t “ y 0 u a s t e d y 0 u r f u el" R N 
D d 1 < 350; .; ( “ 3 L ® 0 s t t here ” AND 
d1>349 ) 

1420 IE tl<>0 THEN PRINT RT 10,0 
n $,; “ y 0 u completed the track 
t {“and beat “ 4 ®$) AND tl<t2) ; ” i 
n time " .; 11: IE 11 < h i AND (11 < 12 
OR t£=8) THEN LET h$=n$: LET hi 
= 11: PR INI fli 12,0;“You have t 0 d 
ays best time" 

1430 IE 12 0 0 THEN PRINT RT 15,0 
; m $; " you c6sp Ie ted the tr a : * 

( (“and beat "+n $) AND t2<tl) : i 

n time t2; IE t2<hi AND (t2<tl 
OR t1—01 THEN LET h$=®$: LET hi 
= t2: PRINs As 17,0;“ You have 
todays best time“ 

1440 PRINT AT 21,0;“PLAY AGAIN P 
HP53 Y“ 

1450 IE INKEY$="“ THEN GO TO 145 
0 

1460 IE INKEY$="y“ OR INKEY$=”¥" 
THEN GO TO 1010 
1470 STOP 
2000 REM DATA 

2010 DATA 30,30,40,35,25,25,25,2 
5,45,60 ., 40,25,30,30,50,55,25,25, 
25,25 

2030 DATA 1,2,4,S,15,32,B4,12S,1 

28,128,128,128,128,128,128,128,8 
,0,192,224,112,125,28,4 
2840 DATA 1,3,7,15,31,53,127,255 
, 45p , , H“-S , Hit* , HSi , iSjH , i28 

2850 DATA 8,3,7,15,15,15,15,7,8, 
8,224,184,248,224,248,224 
2060 DATA 15,15,63,63,63,63.01,3 

1.8.2.195.255.240.64.8.8 

2878 DATA 16,15,63,124,96,224,19 

2.224.248.252.251.14.14.15.8.8 
2088 DATA 16,16,15,15,15,12,12,1 
5,128,192,224,248,112,48,48,56 
2898 DATA 4,28,255,248,128,8,8,8 
,128,129,165,129,189,129,125,24 


Author: P. Fox 


Boats 



A boat is sinking off the Scottish coast. The Captain will 
send details of the time of sinking, number of bucketsful to 
empty the boat and the time to empty each bucket. You 
have to find out how many are needed for bailing out to 
stop the boat sinking. 


1 Hfcli ********************** 

2 REM 

3 REM BOATS 

4 REM 

b REM ********************** 

5 REM 

10 HtM © Raul BOO COt K 1954 
100 DIM ni 5 (30; 

210 RGNDOMIZE 

295 GO TO 1000 

300 RizM ** Message ** 

310 RRINT RT 20,1; BRIGHT 1; PL 
RSH 1; RRPER 5; INK 0;&$ 

320 GO SUB 400 

330 IP INKEY SO'"" THEN GO TO 33 

0 

335 LET jc. $= IN KEY $: IP K$ = s,,s THE 
N GO TO 335 

337 IP K5>= ;: R ;: AND *.$<="2" THEN 
LET K$=CHR* (CODE ( k $) -32) 

340 PRINT PT 20:1;" 
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345 RETURN 

358 REM Instruction ** 

363 PRINT RT 23:1; BRIGHT 1 PR 
PER 6; INK 3;m$ 

395 RETURN 

488 Kth ** rips 

418 PGR i=1 TO 2 

423 BEEP 8,35:53: PAUSE 2 

433 NEXT i 

445 RETURN 

453 HtM ** Draw border ** 

453 PRINT RT 3,8 ; f* FOR i =1 T 
0 23: PRINT RT i ,3; J ": NEXT i 
455 PRINT RT 21:8; k FOR i=1 
TO 33: PRINT RT 21 , i ; : W* : NEXT i 
473 PRINT RT 21.31; A FOR i=2 
8 TO 1 STEP -1: PRINT RT i .31; I 
;! : NEXT i 

475 PRINT RT 3,31; ^ FOR i =33 

TO 1 STEP -1: PRINT RT 

NEXT i 

495 RETURN 

•-‘33 nth ** Raspberry ** 

513 BEEP 1,16: BEEP 1 s 12 
528 BEEP =5,25: FOR X =23 TO 17 
STEP -3 ,5: BEEP , 1 , X: PAUSE 2: N 
EXT X 

545 RETURN 

t‘58 hEM ** Congratulations 
555 RESTORE 573 

558 RERD n,P: BEEP n*8,25,p: IF 
n >8 THEN GO TO 558 


578 DRTR 1,12,1,14,1,15,2,17,2= 
5,12 

572 DRTR 1,17,1:15.1:17:2,19:2= 
5,14 

574 DRTR 1,14,1,16,1,17,1,5,21 
8,5,19 


575 

DRTR 1,19,1,17,1,1 

7,1,15,1, 

14,1 

.16,3,17 



553 

DRTR 3 : 3 



595 

RETURN 



783 

REM tr SOS in morse 

c o d s 


713 

LET dot=,33: LET d 

ash =. 

1 " L 

ET gap=2: LEI tons=15 



723 

FOR i =1 TO 3 BEE-’ 

d 0 t , 

t o n e 

PfiUSfc gap: NEXT i 



733 

FOR i=1 TO 3: BEEP 

d 3 S h 

ton 

£ P'S USE gap. NEXT i 



74-0 

FOR i=l TO 3: BEEP 

d 0 t , 

t o n £ 


PRUSE gap: NEXT i 
753 RETURN 
799 REM 

S88 REM s* rune ra l march 
681 REM 

613 RESTORE 633 

628 RERD n.p: BEEP n*3,4,p: IF 
n>8 THEN GO TO 553 


638 DRTR 2,-12.2,-12,1-12,3,-1 

2 


643 DRTR 2,-9,1.-13,2,-13,1,-12 
,2,-12,1,-12,4,-12 
673 DRTR 3,8 
695 RETURN 
999 REM 

1383 HtM *s 5how i nstr uctions ** 
1331 REM 
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1050 PAPER 7: INK 0: ULS : sOkDb 
R 1 

1060 RESTORE 3000 
1070 PRINT RT 4-,0: 

1330 RERD it: IF i $ = “'£)“ l HtN Gu 

TO 1200 __ 

1100 FQR i=1 TO LEN i$ kRxN! i t 

(i ) ; ; BEEP ,01=0: NEXT i 

1110 GO SUE' 700 

1120 PRINT 

1150 GO TO 1030 

1200 PRUSE 0 

1959 REN 

2000 REN ** Generate puzzle 4 4 


2001 REN 

20.50 LET sink =10+ INT (kND*3s) _ 
2060 LET bu C ke ts =10004lN i (HND44 
000) 

2365 LET bti»e=13+IN! (wNDtUU) 
2070 LET c r e w = (bu c fce t s * btiae ) / 


(sink * 50) 

2030 LET ere = INT i c re w + 

2999 REN 

3000 REN Display puzz 

3001 REN 

3340 DIN i*(4,30) 

3050 LET i 5 (1) = :, TIME TO 


, 999) 

le 4 4 


SINKING 


"+STR$ SINK4” MINS" 
rsR60 LET i 5 (2) =“BUCKETS lO tflP l Y 
BOAT: " 4 STR5 buckets 
3070 LET i $ (3) =“TINE TO _ENRTY tsU 
CKET. “45TR5 btiae4“ StCS" _ _ 

3080 LET i5(4)=“PRESS ENTER fO ! 


kY ANSWER” 


3035 

3090 

r = ?&. 

3100 

3123 

3130 

3140 

3150 

3160 

3130 

3190 

3195 

320O 

3230 

3240 

= r 1*; 


LET S p 0 S =1 
LET ex=125: LET 
LET r1=60: LET 
PAPER 0: INK 7: 


cy = 96: Lb; 
s t e p = 0 ,2 
CLS 


LET lx=cx-rl: LEs ly=cy-ri 
LET r2=2*r1 
FOR i=l TO 100 
L ET p X = lX4RN D 4 r 2 
LET p y = 1 y 4 RND 4 r 2 
PLOT INK 0.;PX,py 
NEXT i 

CIR C L E IN K 7c x , c y , r 
LET a n q l e = 0 .6 : Lb i 0 l d =0 

LET angle=angLe4Step _ 

LET p x= r1 4 005 angle: lb ; 

:■ IN angle 


py 


ru : DRAW INK 7; OUB 


. d =0 L d 4S t £ P 
sfl-sCOS Old 


LET p y = r 


DRAW 
c x , c y 


INK 0 .; 
DRAW 


50 PLOT 
K 1 : P X , P y 
3260 LET 0L 
3270 LET p: 

145IN old 
3=60 FLO! cx,cy 
R l;px.py: PLO! 

0 ; ODER l.;px,py 
3 310 p RI NT AT 2 0,1.1 F A F B K 
0 ; BRIGHT 1;i5(£ P 0 s) 

3320 LET S-P0S=SP0S4l 
3325 IF SP0S>4 THEN LET S?OS=i 
GO SUB 700 

IF INKEY 5 :■" “ THEN GO TO 400 


OUE 

INK 

INK 


6 33 0 
3340 
0 

3345 LET px=rl4C0S 
= r 14-SIN angle 


angle: Lb- py 
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334-7 PLOT CX . cy : DRAW INK 7 ; DUE 

R ip x , p y 

3350 GO TO 3230 

3999 REM 

4.000 KtM Get answer 
4001 REM 

4040 IP IN KEY $ >THEN GO TO 404 
0 

4850 INPUT "Nuaber of crew balin 
g ? LINE r $ 

4060 LEI answer =U AL r $ 

4070 LET ansaer =INT (ansaer +0 = 99 
9) 

4080 Ir answe r =c rew iHEN LtT 0 k. = 
1 

40y0 ir answer ocrew rHEN Lt i ok 
=0 

4499 REM 

4500 hEM Check, answer ri 

4501 REM 

4550 IP ok. =0 THEN LET »*="T00 LR 

TE. . .LOST WITH ALL HANDS”: GO -5U 

B 350: GO SUB 800: PAUSE 0 

4570 IP ok. =1 THEN LET a$="OUR HE 

RO SAUES THE SHIP !”: GO SUB 350 

: GO SUB 550: PAUSE 0 

4580 LET !»* = “ANOTHER EMERGENCY 

? (Y/N) ’*: GO SUB 300 

4590 IP k. $ < > “ y “ THEN PAPER 7: IN 

K 0: CLS : GO TO 9999 

4508 GO !0 2800 

7999 REM 

8000 ptM Instruction data * 

8001 REM 

8010 DATA ”MAYDAY URGENT” 

8020 DATA “BOAT SINKING OPP SCOT 
TISH COAST,.,” 

8030 DATA “CAPTAIN WILL SEND DET 
AILS” 

8040 DATA “OF TIME TO SINKING,” 
8050 DATA. “NUMBER OP BUCKETFULS 
TO EMPTY" 

8060 DATA “BOAT, TIME TO EMPTY E 
ACM BUCKET,,,” 

8870 DATA “PLEASE FIND HOU MANY 
CREW” 

8080 DATA “NEEDED BALING OUT TO 
STOP” 

8090 DATA "BOAT SINKING..." 

8180 DATA “PRESS KEY TO SAUE SHI 
P . , , “ 

8190 DATA “©“ 

8990 GO TO 9999 

9000 INPUT "rite to save ? “Li 
NE f 5 

9010 SAUE 1 ; f$ 

9020 GO TO 9999 

9100 INPUT “Pile to erase ? L 
INE f $ 

9110 ERASE "a";I; f$ 

9120 GO TO 9999 

9200 PAPER 7: INK 8: CLS 


Author: B. Waring 


Dartboard 



This puzzle has a very peculiar dartboard in it. Each area 
of the board has a different score. You have to imagine 
throwing three darts at the board - each one must land on 
a different area. There is a certain total which you need to 
score with the three darts. You have to find how many 
different ways this total can be reached. No combination 
of areas may be used more than once, even in a 
different order. 


1 REM ********************** 

2 REM 

3 REM DARTBOARD 

4 REM 

5 REM ********************** 

6 REM 
ISO DIM 

210 RANDOMIZE 

295 GO TO 1000 

300 RtM ** Message ** 

310 PRINT AT 20,1: BRIGHT 1 FL 
ASH 1; PAPER 5; INK 0;»5 
320 GO SUB 400 

330 IF INKEY $ < > “ “ THEN GO TO 33 

0 
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335 LET k $ = INKEY $ : IP k $ = •’*• THE 
N SO TO 335 

337 IP *.$>=»«*• AND k $ < ="Z" THEN 
LET k$=CHR $ (CODE (k5) -32) 

340 PRINT PT 20:i;" 


345 RETURN 

3 50 wtM * * Ins t ru ction * * 

360 PRINT AT 20:1; BRIGHT 1; PR 
PER 6; INK 0;»$ 

355 RETURN 

400 KtH ** Pips t* 

410 FOR •=! TO 2 
420 BEEP 0,05.50: PRUSE 2 
430 NEXT i 
445 RETURN 

450 REH ** Draw border ** 

460 PRINT RT 8:0; f': POP i =1 T 
0 20. PRINT RT i,0; "§”: NEXT i 
465 PRINT RT 21,0 ’L": FOR i=1 

TO 30: PRINT RT 21, i W’ : NEXT i 
470 PRINT RT 21,31.; J FOR i =2 
0 TO 1 STEP -1: PRINT RT i ,31; “ 1 
" ! : NEXT i 

475 PRINT RT 0,31;'V: FOR i=30 
TO 1 STEP -1: PRINT RT 0 , i ; 

NEXT i 
495 RETURN 


500 REH ** Raspberry ** 

510 BEER 1., 15: BEEP 1,12 
520 BEER ,5,25: FOR X=23 TO 17 
STEP -0,5: BEEP ,1,X: PAUSE 2 : N 
EXT X 

545 RETURN 

650 REH Congratulations ** 
555 RESTORE 570 

560 READ n,p: BEEP n*0,25,p- IF 
n >0 THEN GO TO 560 


570 DATA 1,12,1.14,1,16,2,17,2, 
5,12 

572 DATA 1,17,1,16,1,17,2,IQ,2, 
5., 14 

574 DATA 1., 14 1,16,1,17,1,5,21 , 
0,5 19 


576 DATA 1,13,1,17,1,17,1,16 1, 
14., 1,16,3,17 
560 DATA C , O 
595 RETURN 
999 REH 

1000 RtH ** Show instructions 

1001 REH 


1050 RESTORE S00O 
1060 PRINT AT 2,0- 
1070 READ i$ 

1080 IF iiil) = ;l §" THEN GO TO 120 
0 

1100 LET P =1 4 1NT IRND-s-LEN i$5 
1118 PRINT is( TO P 5 ; 

1123 FOR i=l TO 3: BEEP ,1,-30 

PAUSE 10: NEXT i 

1130 PRINT i s i p -rl TO ) 

1140 GO TO 1070 

1200 Lt i ni$= : press any key to co 
ntinue , , , “ GO sUs 300 
1999 REH 


2000 RtH ** Generate puzzle 7 -* 

2001 REH 


Dartboard 
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2050 RANDOMIZE 
2070" LET n =10 
2050 DIM sin) 

2090 LET base =2+INT (RNDaS'J 

2100 LET S(1)=0 

2110 RESTORE 5200 

2120 FOR i=2 TO n 

2130 READ Si : LET S(i)=base 

214-0 NEXT i 

2-150 let target =15+INT (KNDrlii 

2160 LET target=target*base 

2200 LET ways = 0 

2220 FOR 3=1 TO n 

2230 FOR b=a -i-i TO n 

2240 FOR C = b +1 TO n 

2250 LET tOt=S (a) +S (b) +s (£) 

2260 IF tot=target FHtN Ltl ways 
=w a y s +1 
230.0 NEXT C 


2310 NEXT b 
2320 NEXT a 
2993 REM 

3000 REM ** Display puzzle ** 

3001 REM 

ft050 BORDER 2: PAPER 7: INK 0: U 
LS : GO SUB 450 

3070 PRINT AT 1,2; PRFtK 2.1 iNK 

8;“ DARTBOARD ” _ 

3050 LET Cl =10: i_E' CC=14: Lb! C 

X =127: LET cy =55 

3030 LET f1=15: LET r2=b8: Lb! r 


3=65 
5100 
3120 
3130 
3140 
3150 
3170 
3150 
3130 
3195 
3200 
3210 
3230 
3300 
NT AT 
K 3; 

3400 
K. 9; 
EEDEC 
3939 

4000 

4001 
4050 
a n -4 w a y s 
4060 
40 0 
4850 
1 

4493 
4508 
4501 
4558 


CIRCLE CX , Cy,r1 
FOR 3=0 TO 2*PI_STbP Pi/4- 
LET p x 1 = c x + f 1 -r5 iN a 
LET pyl=cy+r1-sCOS a 
PLOT pxl,pyl 


LET p X2 = ( r 2 
i_ET py2=tr2- 
DRAW P X 2 , P y2 
NEXT a 

CIRCLE cx,cy 
CIRCLE cx,cy 
RESTORE 5480 
FOR i=1 TO n 
L c; PAPER 


• 1 ) 
■ 1 ) 


*5 IN 3 
t C 0 5 3 


, r2 
r 3 

: READ l,C: 
INT • RND*5) 


BRIGHT 1;s Ci) : NtX i i 
PRINT AT 20,10; MAHER 
BRIGHT 1; FLASH 1; 

IS “ ; t a r pe t“ “ 

REM 

REM ** Get answer 
REM 

INPUT PAPER 5: iNb 
to s co re _7 
LET answer=UAL 
Lb.! 0 k =0 

IF answer=ways 


PR I 
IN 

IN 
CORE N 


r $ 


a * 

0 ;“How 

LINE r$ 


THEN LET 0k= 


REM 
REM 
REM 

IF Ok =0 THEN 
a very bad a is- i 
GO SUB 588. PAUSE 
4578 IF 0 k =1 THEN 
ndred and tlGHiY 


at Check answer aa 


LET “You've 

: GO SUB 358: 

0 

LET si i = “One hu 
- yes!“: GO SUB 
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350: GO SUB 550' PAUSE 0 
4*80 Lt! m$=“Another three darts 
? (Y/N) “ : SO SUB 300 

4590 IF k$o“y" THEN PAPER 7: IN 
K S: CLS : GO TO 9999 
4600 IF oK =0 THEN GO TO 4000 
4610 IF 0 K =1 THEN GO TO 2000 

7999 REM 

8000 keM * * in s t r u c t i o n data * * 

8001 REM 

8013 DATA “ DARTS" 

8020 L' 1 A! A "This puzzle has a ver 
y peculiar" 

8025 DAiA “dartboard in it. Ea c 
h area of “ 

S030 DATA “the board has a diffe 
rent score." 

8040 DATA “You have to imagine t 
h r oil) i n g “ 

3858 DA■A “three dart s at th e bo 
ard - each” 

8060 0 ATA “one must land in a di 
f r e r e n t “ 

0 :' 0 d h ! h "area. There i s a c e r 
tain total" 

8080 DAiA “which you need to sco 
r e w i t h the" 

3090 DATA “three darts. You hav 
e to find" 

8100 DAT A “ h o w m a n m d i ?' fere n t w a 
ys this “ 

8110 DATA “total can be reached. 

8120 DATA “No c o mbina tio n or are 
as may be" 

8130 DATA “used more than once, 
even in a " 

8140 DAiA "different o r d e r . " , " “ 
Sib© DATA “Take aim carer u 11y . . . 

8190 DATA "©“ 

8200 DATA 1., 2.: 3,4,5,5,8.. 10,12 
8400 KtH ff Data f or sc6r e po s i t 
i o n s 

8410 DATA 9,11,10:15 
8420 DATA 3,15,12,19 
8430 DATA 5,13,15,17 
8440 DATA 9,19,5,17 
8450 DATA 15,13,12,11 
8990 GO TO 9999 

9000 INPUT “File to save ? “; LI 

NE f 5 

9810 SANE *"m“;1, f $ 

9020 GO TO 9999 

9103 INPUT “rile to erase 7 “; L 
INE f$ 

9110 ERASE "m“; 1; f$ 

9120 GO TO 9999 

9200 PAPER 7: INK 8: CLS • Rfl TO 
9999 


Author: R. Harding 


Enigma 



This program presents you with a word and its coded 
version. Using the same code, you must enter the coded 
version of the second word. Five tries are allowed - and 




the computer 

keeps score. 



1 

POKE 

2 FF.F.P, . 3 





GO 5Li 

F; 2000 




=: 

FOR X 

= 0 TO 7 

REhD «! , n 



F: 

POKE 

USP 1 ' H’ 

tX 'ft : POKE 

U : Z ! H 


4 > 

: n 






NEXT 



DIM 


19 

i FT 9 

ij ess =1 

DIM » .5) ; 

t i 

5 5 : 

LET 

35=““: 

DIM W$ (5) : 

LET 

q$ 

— : ’■ 

: DIM 

! 2 5(5): 

DIM r (5) : 

DIM 

S ! 

5) 

: DIM 

S $ ( 5 j : 

LET s$="“: 

DIM 

a i 

F5i 

. DIM 

35 (5) : 

LET 35=“" 



20 

REST C 

ikc. Lt! n = ±N i i h N u -r 


)+1000 

30 RESTORE n 
35 FOR X=1 TO 5 
4.0 HC.RO » t’X) 

55 NEXT X 

50 LET r=INT iRND+25)+1000 
62 RESTORE r 
54 FOR X=i TO 5 
66 RehD 2 i.X) 

59 NcX S X 
73 FOR X =1 TO 5 
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•/* L$z! w 5 (x> =CHR$ w (x > 

75 LET z $ (X) =GHR $ Z ( X) 

7 Liz! g$=g$r y $ (x ) 

/ 5 Liz! q$=q$+z$(x) 

50 NEXT X 
90 FOR k. = i TO 5 
95 LET r(K)=INT (RND+5) -fl 
100 NEXT ?: 

102 LET p=0 

103 Liz! p = P -f 1 

105 LET s=l?-rr (RNl>tt 2) -fl 
110 IF S =1 THEN GO TO 150 
11* L*_?_ s ip) =•>:• ip) +r ip) 

117 Liz ! 3 (p ) =z (p ) + r (p ) 

125 IF P >=5 THEN GO TO 250 

150 GO TO 105 

1*0 Liz i s ip ) =w (p ) -r (p ) 

1*2 Liz ! a ip ) =z ip ) - r ip ) 

1*0 IF p > = 5 THEN GO TO 250 

16* GO !0 105 

250 FOR X =1 TO 5 

25* Liz ! s $ i x ) =GHR $ S ( x ) 

2*5 Liz ! a $ i x ) =CHh $ a ix ) 

2* 7 L* ! s$=s$ rS $ i x ) 

2*5 L*! 3$=3$t3$ C X) 

250 NEXT x 

499 PRINT INK l.;TR5 10; 1: ENIGMR :: 
: PRINT : PRINT . PRINT : PRINT 
*00 PRIN i INK 2 ; :: In a c e r t a i n c 
Ode : M 


HHHH D 


510 P RI NT : P RINT g $" 

-- $ 

520 PRINT : PRINT INK 

S 3 id £ C 0 d £ 

550 PRINT . PRINT q$; 

FLP5H 1; INVERSE 1; 1: “? 

555 LET n =0; LET X=5 
540 INPUT X5 
550 IF x*oa$ THEN LET 
£SS+1: PRINT RT X ,20;X $ 
URONG 11 : LET n=n+l 
555 IF x $=3 5 THEN GO TO 700 


in th£ 


HHHH* 


QU£SS=QU 
FLP5H 1 


560 IF n_> =5 THEN PRINT RT 
INK 5 ls Th £ $ o r d w 3 s ; 3 $ 
E 0 : CL5 : GO TO 19 
570 LET x=Xt2: GO TO 540 
TOO FOR Z=1 TO 7: FOR X=0 
BORDER X: NEXT X: 

710 FOR X=0 TO 10 
EXT X: PRINT RT 20 
ORKizCT i n ; guess ; 

PROSE 9999: 0L5 

900 DffTfi 0,5 : 0 : 4 : 

5,254,0,4:0,8 : 0 : 0 
1000 DRTR 79:55,71 


20 .. 10 
PROS 


TO 7 


NEXT z 
BEER s 2 , X 
0: FLR5H 1. 
guess (e s ) : 
GO TO 19 
255,254,0 ,, 1 


N 

‘C 


1001 

1002 

1005 

1004 

1005 
1005 

1007 

1005 

1009 

1010 
1011 
1012 


DRTR 

DRTR 

DRTR 

DRTR 

DRTR 

DRTR 

DRTR 

DRTR 

DRTR 

DRTR 

DRTR 

DRTR 


79 
52 , 
52 : 

52 , 
70 , 
77 : 
55 : 
55 : 
55 : 
55 , 
55 

53 
S3 


59 

69 

59 

75 

59 

65 

SO 

BO. 

54 

, 54 . 

.• ’—'4 


SO 

7Q 

54 

SO 

— •- 

73 

59 


: Si 


72 
71 
•, 7 5 
• 59 
,55 
2 
59 
75 
59 
59 
7* 
70 


: 54 
p 75 
, 54 
: 75 
: 52 
: 53 
: 52 
: 53 
: S3 
: 75 
: 54 
: 70 
: SO 





Enigma 


1013 DATA 
1014- DhTh 
1015 DhTh 
1015 DhTh 

1017 DhTh 

1018 DhTh 

1019 DhTh 

1020 DhTh 

1021 DhTh 

1022 DhTh 

1023 DhTh 
1024- DhTh 
1025 DhTh 
2000 INK 
LS 


83 :54,79,75,59 
54,52,55,75,75 
5 4,5 / 6 7 3 5 3 

54 5 *!' 52 , 7 5 , 83 
53 ; 54,59 , 50 ... 53 
70 73 .. 52 53,54 
70 75 : 79 50 53 
50,82,73,75,54 
75 •. 73 *78 : 69 ; 53 
75,73,77,73,84 
77 : 73,71,72,84 
75 .. 75 .. 79 77,59 
75 79 .. 73 53,59 
: PAPER 0: BORDER 0: 


C 


2010 PRINT AT 0 : 10; "ENIGMA 11 
2020 PRINT : PRINT : PRINT 
2030 PRINT “The program will p re 
sent you " 

2040 PRINT : PRINT “With a word 


a n d 11 s c o d e d 

2050 PRINT : PRINT “ve r sion , us i n 
9 the same code 7’ 

2050 PRINT . PRINT “enter the co 
ded version of the" 

2070 PRINT PRINT “second word: 
Five tries are “ 

2050 PRINT . PRINT “allowed-1he 


computer Keeps score 55 
2090 PAUSE 9999: INK’©: PAPER 
BORDER 7: CLS : RETURN 


Author: A. Wallis 



Cards 



Here is a puzzle that is rather like a common game of 
cards - but not too much! What you have is a hand of ten 
playing cards. What you have to do is simply find how 
many runs of three cards can be made from the cards in 
the hand. The cards in a run need not all be in the same 
suit. The Ace is the lowest card and a run cannot ‘go 
around’ from the King to the Ace. 


1 HtM ********************** 

2 REM 

3 REM CARD TfiBLE 

4 REM 

S’ WS.M ■*****•£***■**•£*******■*■•*•* 

■5 REM 

100 DIM (30) 

210 RANDOMIZE 

295 GO TO 1000 

300 ksM Message ** 

310 PRINT AT 20.1, BRIGHT 1; PL 
ASH 1; PAPER 5; INK 0;m$ 

320 GO SUB 400 

330 IF INKEY* o'*" THEN GO TO 33 

0 

335 LET k S = INKEYS: IF k$=“" THE 
N GO TO 335 
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337 IP k$>=“P‘ ; AND k$<»*’2" THEN 
LET k5=CHR$ {CODE (K$ >-32) 

340 PRINT PT 20,1:” 


345 RETURN 

350 kcM 44 Instruction 44 
360 PRINT PT 20.1; BRIGHT 1; PP 
PER 5; INK 0;m$ 

335 RETURN 


400 Nth ** Hips 44 

410 FOR i=1 TO 2 

420 BEEP 0.05. SO: PAUSE 2 

430 NEXT z 

445 RETURN 

4*0 RtH 44 Draw border 44 
450 PRINT PT 0.0; “P' ! : FOR i =1 T 
0 20: PRINT PT i.0;”1": NEXT i 
465 PRINT PT 21,0.1 ’fc": FOR 1 =1 
TO 30: PRINT PT 21, i ; ''m ’’ '■ NEXT z 
470 PRINT PT 21.31; “ 4 “ ; FOR i=2 
0 TO 1 STEP -1: PRINT PT i,31; ! '| 
": NEXT z 

475 PRINT PT 0=31; T’: FOR i=30 
TO 1 STEP -1: PRINT PT 0,i; : : 

NEXT z 
435 RETURN 

*00 wtH ** Hasp be r ry 44 
510 BEEP 1,15: BEEP 1,12 
520 BEEP .5.25: FOR X=23 TO 17 
STEP -0.5: BEEP .1,X: PAUSE 2: N 


EXT X 

545 RETURN 

550 REM 44 Congratulations 44 
555 RESTORE 570 

560 READ n.p: BEEP n40=25,P: IF 
n >0 THEN GO TO 550 
570 DATA 1,12,1,14,1,15,2,17,2. 
5,12 

572 DATA 1,17,1,15,1,17,2,13,2, 


5.14 

574 DATA 1,14,1,16,1,17,1,5,21, 


0,5,13 

575 DATA 1,19,1,17,1,17,1,16,1, 
14,1.15,3,17 
550 DATA 0,0 
535 RETURN 
639 REM 

700 REM 44 Gtissando beeps 44 

701 REM 

710 LET start =13-44Step 


720 LtT end=13+44 s tep 

730 FOR x =s t a r t TO end STEP ste 


740 BEEP ,01,X 
750 NEXT x 
730 RETURN 
733 REM 

*00 REM 44 Draw edge of card 44 

510 FOR X = l TO 1+6 

320 PRINT PT X , c; PAPER 7.; ODER 

i; ‘ 

530 NEXT X 

540 PRINT PT L,c; 

850 LET c t r =2: IF S ( C 3 r d) = 1 OR 
s(c ar d)=3 THEN LET clr =0 
550 PRINT PAPER 7; INK clr; OUE 
R 1; y$ is (card) ) 
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670 PRINT PT l+l.c; PPPER ?; IN 
K riL r ; OUER i; ; v* (v (card)) 

690 PLOT *0*8:176-1*6 

900 DRPU 15 : 0: DRPU 4 -4,-PI/5 

910 DRPU 0,-49 

950 DRPU -4 .-4,-PI/5 : DRPU -15, 

0 

990 RETURN 
999 REM 

1000 REM ** Show instructions 

1001 REM 

1050 RESTORE 6000 
1060 PRINT PT 5:0; 

1070 REPD i$: IF i$(l)= :: © 5 ‘ THEN 
GO TO 1500 
1060 PRINT i$ 

1090 LET Step=— 1: GO SUE 700 
1100 REPD i i : IF i $ (1) = "©•• THEN 
GO TO 1500 
1110 PRINT i$ 

1150 LET stepsl: GO SUE 700 
1150 GO TO 1070 

1500 LlT m$ = ‘Tress any Key to de 
a l ... 11 : GO SUE 300 
1999 REM 

£=:000 wtM ** Generate puzzle ** 
5001 REM 

5050 LlT = 11 Shuffling the cards 
now = : * :I : GO SUB 350 
5050 RfiNDDMIZE 
5050 LET n =10 
5070 DIM S (n) : DIM V(n) 

5100 FOR i=i TO n 

5150 LET v(i)=l+INT (RND*13) 

5130 LET s(i)=1*1NT (RND*4) 

5140 LlT used =0 

5150 FOR j=i TO i-l 

5160 IF s (i) =S ( j) PND V (i) =V (j) 

THEN LET used=l 

5170 NEXT j 

5160 IF used =1 ThEH GO TO 5150 

5500 NEXT i 

5590 LET runs =0 

5300 FOR i=1 TO n 

5310 FOR j =i41 TO n 

5350 FOR K = j 41 TO n 

5330 LET d1=PES (V (i) -V (j ) ) 

5340 LET dS=PB5 (V(i)-V(K)) 

5350 LET d3 =PES (V i .1) -V ( K ) ) 

5370 IF d 1 >0 PND dS>0 PND d3>0 T 
HEN IF d1+dS+dS=4 THEN LET runs= 
r uns +1 
5400 NEXT K 
5410 NEXT j 

5415 LET S ten =-i; GO SUE 700 
5450 NEXT i 

550.0 IF runs =0 THEN GO TO 5100 
5999 REM 

3000 KizM ** Di splay puzzle ** 

3001 REM 

3050 BORDER 0: PPPER 4: INK 0: 0 

L5 

3060 PRINT PT 1,1; PPPER 5; 85 CPR 
D TPELE ;: 

3090 RESTORE 6500 

3150 FOR i=0 TO 7: REPD byte: PO 
KE USR 85 a :s 4i : byte : NEXT i 
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REfiD 

NEXT 

by te : 
i 

P 0 

RER.D 

NEXT 

by te : 
i 

PO 

REhD 

NEXT 

by te . 
i 

P 0 


READ v $(i) 


3130 FOR i=0 TO 7 
KE iJSR "b“+i , byte 
314-0 FOR • =0 TO 7 
KE U5R “c“+i,byte 
3150 FOR i=0 TO 7 
KE U5R "d“+i,byte 
3150 LET y$=“t*®;" 

3170 DIM v*(13,2) 

3180 RESTORE 34-00 
3190 FOR i=1 TO 13 
NEXT i 

3200 LET 11=3: LET 12=11 
3220 LET card =0 

3250 FOR 1=11 TO 12 STEP 12-11 
3260 FOR j=l TO 7 
3270 PRINT AT L + j -1,5; PAPER 7.; 
INK 5.; AV.V 
3280 NEXT j 
3290 PLOT 39,176-1*8 
3300 DRAW 41,0: DRAW 0,-57: DRAW 
-41,0 DRAW 0,57 


3310 LET c=S 
3320 FOR j=l TO 5 
3330 LET c = c +2 
3350 LEI card=card + l 
3360 GO SUB 800 
3400 NEXT j 
3450 NEXT l 

3500 LET m$=“Press ENTER to try 

your answer": SO SUB 350 

3680 LET S tep =1: LET count=1: LE 

T deLay =100 

3618 Lt; count=count + l 

3520 IF INKEY$ >"" THEN GO TO 400 

0 

3630 IF count<delay THEN GO TO 3 
610 

3540 GO SUB 700 
3650 LET step=-i: LET count=1 
3560 LsT count=count+1 
3670 IF INKEYSTHEN GO TO 408 
8 

3680 IF count<delay THEN GO TO 3 
650 

3698 GO SUB 788 
3788 GO TO 3508 
3999 REM 

4888 KtM ** Get answer ** 

4881 REM 

4858 INPUT PAPER 5; INK 8.; BRIGH 
T lj “How many runs ? “LIN* r $ 
48*8 Ls; answer=U hL rj 
4878 LET 0k=8 

4888 Ir answer=runs iHtN Ls i 0 k = 
1 

4499 REM 

4588 REM ** Check answer ** 

4581 REM 

4558 IF Ofc=8 THEN LET ffi$=“NO - d 
on't bet too much !": GO SUB 3*8 
: GO SUB 588: PAUSE 8 
4578 IF OK=1 THEN LET a$="YES - 
you win this trick. ! “: GO SUB 3s 
8 : GO SUB 558: PAUSE 8 
4588 LET m$=“Do you want another 
deal ?": GO SUB 388 
4598 IF k$<>“y" THEN PAPER 7: IN 



60 


Cards 


K 0: CL5 : GO TO 9999 
4500 GC TO 2000 
7999 REM 

s000 Kth ** Insiruction data 4 4 
■3001 REM 

3010 DRTR " CRRD TABLE", " 

3020 DRTR "Here is a puzzle whic 
h is '* 

3030 DRTR “rather like a common 
game of 

3040 DRTR "cards - but not too i» 
u ch ! " 

30s0 DhTw “What you have is a ha 
nd of ten" 

S0D0 E>hTR "playing cards = What 
you have " 

3070 DATR "to do is simply find 
how many" 

8080 DRTR "runs of three cards c 
an be made" 

808s DRT h “from the cards in the 
hand, “ 

3030 DRTR "The cards in a run ne 
ed not all" 

8100 DhTR "be in the same suit. 
The Hce is" 

3110 DhTR "the Lowest card, and 
a run",“cannot 'go round from t 
he King" 

3130 DRTR “to the fice.",“ “ 
i?140 l>h i R "No cheating i" 

8130 DRTR 
3199 REM 

8200 REM * UDG data for card and 
other symbols 

8201 REM 

3210 DRTR 8,8,28,52,127,62,28,8: 
REM Diamond 

8220 DRTR 8,34,119.127,127,52,28 
,3: REM Heart 

8230 DRTR 3,5,28,52,127,52,8,28: 
Kth spade 

8243 DRTR 28.25,28,127,127,127,8 
, 28 

8480 RtM 44 Card values 44 
8410 DRTR “R","2",“3“,“4",“5","5 
" . “7“ , “8"- . “9“ , “18" , “.J" , "0“ , "K" 

8990 GO TO 9999 

9383 INPUT "File to save ? LI 
NE f $ 

9818 8RUE 4"m":1; f $ 

9028 GO TO 9999 

9138 INPUT "File to erase ? L 
INE f $ 

9110 ERASE "m";1: f $ 

9123 GO TO 9999 

9238 PRPER 7: INK 0: CL5 : GO TO 
9999 


Author: S. Johnstone 
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This puzzle gives you a square of 5 by 5 numbers. You 
have to copy into a blank square. The problem is that we 
only let you see it for a couple of seconds at a time. As 
some consolation, we tell you that the square is made up 
according to these rules: there are only five different digits; 
no two digits are the same in any row, column or 
diagonal. You score points out of 10 for the number of 
times you look at the square you are copying. 


1 HtM *********************** 

2 REM 


3 REM MEMORY SQUARE 

4 REM 

& ReM *********************** 


9 

REM 


11 

REM 


15 

REM 


100 

DIM mi(30) 


595 

GO I0 100S 


300 

REM hessaqs 

## 

310 

PRINT RT 20:1; 

BRIGHT 

RS'H 

1; RRRER 5; INK 

0 ; m $ 

320 

GO SUE 400 



33Q IF INKEY*O 

0 


THEN GO TO 
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335 LET k $ = INKEY $ : IP k $ = •* •* THE 
N GO TO 335 

337 IP k $ :• = ;; PT PINO k$<= , ‘Z" THEN 
LET k$ =CHR $ ( CODE (k $ ) -32) 

340 PRINT PT 20=1;" 


345 RETURN 

350 HtM + + mstr ucti on + + 

360 PRINT PT 20,1; BRIGHT 1; PP 
PER 6; INK 0 ; B> $ 

395 RETURN 


400 RtM + + pips * * 

410 FOR i=1 TO 2 
420 BEEP 0.05,50: PRUSE 2 
430 NEXT i 
445 RETURN 

4&0 REM + + Draw border + + 

450 PRINT PT 0=0; P FOR i=1 T 
0 23: PRINT PT i =0:J": NEXT i 
465 PRINT PT 21.0 : ' FOR i =1 

TO 30 : PRINT PT 21., i : NEXT i 

470 PRINT PT 21,31; si FOR i =2 
0 TO 1 STEP -1: PRINT PT i ,31;” i 
": NEXT i 

475 PRINT PT 0,31; FOR i =30 

TO 1 STEP -1: PRINT PT 0,i; 

NEXT i 
495 RETURN 

500 HtM ** Raspberry + + 

510 BEEP 1,16: BEEP 1.12 
520 BEEP ,5=25: FOR X=23 TO 17 
STEP -0.5: BEEP ,1 = X: PAUSE 2 N 
EXT X 


545 RETURN 

560 HtM + + Congratulations + + 
555 RESTORE 570 

560 READ n,p: BEEP n*0.25,p: IF 
n ;• 0 THEN GO TO 550 
570 DPTP 1,12,1,14,1,16,2=17,2. 
5,12 


572 DPTP 1,17,1,15,1=17=2=19,2, 
5,14 

574 DPTP 1,14=1,16,1=17=1,5,21= 
0.5,19 


576 DPTP 1,19,1,17,1,17=1,16,1, 
14,1,16,3,17 
580 DPTP 0,0 
595 RETURN 

700 HtM + + run c tion to p rint di 

git at row L , co l c 
710 DEF FN s $ l l, C , X ) =FN p $ ( i. *2 + 
3,0 + 'd. + e! - 1 + 5TR $ X 

750 DEF FN p$il,c)=CHR$ *22)+CH 
R$_(L)+CHR$ (c) 

800 REM + + ru n c tio n to p rint c u 

rsor on row L, co Lurnn c + + 

818 L'tF rN c $ i l, c ) =rN p $ ( l *2+3 , 
r *2+2) +CHR* i 18)+CHR $ i 1 ) +CHR$ ( 

21) +OHR$ (1)+" " 

S50 HtM * + runction to remove c 


u r s o r 

868 DEF rN d $(L = c) =FN p $ ( 1 +2+3 = 
C +2+2) +CHR5 f18)+CHR $ (0)+CHR$ « 

21) +OHR* (1)+" ** 

899 REM 

988 HtM ++ rlash copy square ++ 
981 REM 
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905 PRINT RT 4,13; :i 

910 FDR X =1 TO 5: PRINT RT X*2 + 

3,13 ; " s * ; 

920 FOR y = 1 TO 5: PRINT ztx,y>; 
NEXT y 

930 PRINT RT x*2+4,13; :: 

: NEXT x 

940 PflUSt time*50 

95 0 FOR X—4 ~ o 14: PRINT RT X,1 
yBBB NEXT 

990 RETURN 

1000 REM ** Instructions ** 

1050 BORDER 5: PRPER 7: INK 0 
1050 CL5 : RESTORE 3000 
1070 RERD i$ 

1030 POKE 23692,255: REM Poke ma 
k a s s c r £ e n s c r o 11 w i t h o u t a s k i n g 
1090 PRINT RT 21..0: 

1100 PRINT i%. BEEP .2,30 
1120 RERD i $: IF i$(Do 8, © S! THEN 
GO T0_1100 

1200 LizT = 11 Press k£y for th£ f 
i r s t Loo k « , « " : GO SUB 300 

1999 REM 

2000 REM ** S£t up puzz i£ ** 

2001 REM 

2020 DIM Z(5:55: DIM U(5): DIM V 

(5) 

2030 RRNDOlilZE 

2040 l_£lT score =10 

2050 FOR i=1 TO 5 

2055 LET w(i)=INT (RND*10) 

2057 LET uS£d =0 
2050 FOR .1=1 TO i-1 
2052 IF wCj)=y(i) THEN LET US£d= 
1 

2063 NEXT j 

2065 IF uS£d =1 THEN GO TO 2055 
2059 NEXT i 

2070 FOR i=l TO 5: LET Z(i,5-i)= 

m (i): NEXT i 

2150 FOR i=l TO 5 

2160 LET l=i: LET C=6-i 

2170 FOR j=l TO 4 

2130 LET l = 1-2: IF L <1 THEN LET 
L = L + 5 

2190 LET C=C+1: IF C>5 THEN LET 
c =c -5 

2200 LET z U,c ) =W ( i) 

2210 NEXT j 
2220 NEXT i 

2999 REM 

3000 REM Display s c r £ £ n 

3001 REM 

3020 DIM a(5:5; 

3030 BORDER 3: PRPER 6 INK 0: C 
LS : GO SUB 450 

3035 PRINT RT 2,2; BRIGHT 1,: PRP 
ER 3; INK O; tJ MEMORY SOURRE 
3040 PRINT RT 


3050 FOR i=4 TO 14 
3050 PRINT RT i , 2 ; 51 i 

i I 

3070 NEXT i 

305 0 PRINT RT 15 ,2 ; :: 

mmmmmmmmmmsamaat ■■■■ 


i 
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3100 PRINT PT 17,1.; "Hove with SY¬ 
MBOL SHIFT arrow" 

Silo PRINT PT 18,1;"Press F to f 
Lash the square." 

3115 PRINT PT 19,1.; "Press ENTER 
to try the answer." 

3130 LET time=5: GO SUB 908 
3999 REM 


4888 kEM ** Get answer + * 

4881 REM 

4858 LET 1=1: LET c=l 
4188 PRINT FN c5iL,C) 

4158 IF INKEY$ <>“" THEN GO TO 41 
58 

4158 PAUSE 8: LET k5=INKEY$ 

4180 PRINT FN d$(l.C) 

4198 LET 0 it. =8 
4288 IF *.$ = “-" PND 
1=1-1; GO TO 4188 
4228 IF k$=">" PND 
C =C +1; GO TO 4188 
4248 IF fc $ = "%" AND 
c = c —1: GO TO 4188 
4258 IF KS = "S:" PND 
1=1+1: GO TO 4188 
42S8 IF fc $ =CHR$ (1C 
4588 

4368 IF k$ > = “0" PNC 
LET a ( L , C 3 =UPL k $ : PRINT FN S$( 
L,C,UAL fc $3 : LET ok=1 
4388 IF *.$ = "?" OR fc $ = "F" THEN LE 
• time = 2 : GO SUB 988 . Lt; score = 
s c o r e -1 

4488 IF SCO re=8 THEN GO TO 5888 
4458 IF 0 fc=0 THEN BEEP =2,25 
4468 GO TO 4188 
4499 REM 

4588 RtM ** Check answer * + 

4581 REM 
4558 LET 0k=l 
4568 FOR 1=1 TO 5 
4578 FOR C =1 TO 5 

4588 IF a ( L , C 3 < >Z ( l , C 3 THEN LET 
Ok =8 


l > i 

then 

LET 

C < 5 

THEN 

LET 

C > 1 

THEN 

LET 

l <5 

THEN 

LET 

) then GO 

i TO 

k $ 

• = l: 9 :: 

THEN 


4598 NEXT C 
4688 NEXT L 

4658 IF Ok =1 THEN LET m$="Uell r 
emem be red - SCORE “+STwj s core ; 
GO SUB 358: GO SUE 558: PAUSE 8 
4678 IF 0 fc=8 THEN LET »*=“Rotten 
memory i - SCORE now "+STR$ sco 
re. GO SUB 358: GO SUE 588: RPUS 
E 8 

4788 LtT m$=“Do you want another 
9 0? (Y/N 3 ": G0 5 UB 388 
4720 IF fc $ < > “ y" THEN CLS : GO TO 
9999 

4748 IF OK =1 THEN GO TO 2883 
4753 IF Ofc=8 THEN GO TO 4383 
5888 LtT m$="You've run out of p 
Oints !": GO SUE 353: GO SUB 588 
PPUSE 8: GO TO 2838 
8088 DATA " MEMORY SQUARE" 

8813 DPTP " “ 

8328 DATA "This puzzle g i v e s yo u 
a square “ 
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S 3 30 DPT P '‘of s by b nuisbers. Y 
ou have to " 

834-3 DP i 9 c o p y it in t o a fa t a n k 
squa re = " 

8353 DPT9 ‘The problem is that w 
e only let" 

8363 Dh!h “you see it for a coup 
le of" 

8373 DPT 9 "seconds at a time , = , " 

/• 

8383 DhT 9 " hs so me c o nso l a t ion , 
ye tell " 

8330 DPT9 "you that the square i 
s made up" 

8180 DhTh “according to these ru 
les : " 

8118 DhT 9 " - Only five di ffer 

ent digits" 

8120 Dh!H “ - No two digits th 

e same in " 

8133 DhTh " any r ow .. co 1 umn 

or diagonal"," " 

814-3 DhT R " Yo u s c o r e p o i n t s o u t 
of 13 f or “ 

8153 DhTh “the number of times y 
ou look at" 

8160 DhT« "the square you are co 
pying." 

8170 DhTh " "," "," " 

8190 DPTh "©" 

8933 GO TO 9993 

y003 INPUT "rite to save 7 LI 

NE f $ 

9310 SPUE ft 

9023 GO TO 9393 

9103 INPUT "File to erase ? "; L 

INE f $ 

9113 ERASE "m";1; f$ 

9123 GO TO 9399 


Author: T. M. Reed 
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12 3 4 5 e 7 8 


This game is similar to the classic game of Solitaire. The 
object is to remove as many of the pieces as possible by 
jumping over pieces in a diagonal direction and thereby 
removing them. Removal of 40-44 pieces is good - 
removal of 45-47 pieces is very good. 


4 

5 

10 
110 
120 
130 
140 
150 
160 
20 
210 
220 
11 i 
H vj> 0 

£ P l 

p i £ 



RESTORE 

FOR R = 144 TO 150 
FOR 8=0 TO 7 

RERD 0: POKE U5R CHR$ R+B-.C 
NEXT 5 
NEX^_R_ 

ORDER 0: PAPER 0 
PAPER 2: INK 6: PRINT AT 0= 
DIAGO-NALLE" : PAPER 0 : INK 4 
PRINT AT 2,1; l! Th is is a gam 
a y £ d o n a n S by 3 rna t r i x = 48 
c £ s a r £ place d o n t h £ t w o o u t 
s t l o c a t i o n s o f t h £ rn a t r i x s 
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240 PRINT PT 7,1 
u m p i n g o v e r p i e c e 
dire ction (a n d 
them) into an ;s 
250 PRINT 
a y n o t j u m p 
o n a n d y o u 
y e m p t y *' 

250 PRINT 

0-44 pieces 

_270 PRINT 
b -47 pieces 
250 PPPER 


15 You move by j 
• i n a d i a g o n a t 
hence re m ovin g 


em p t y l o c a tion*You m 
in any othe r dire c ti 


m a y n o t j y m p o v e r 
_Lo ca t i ons s " 

P:! lb, I; u we m o v a L o 
g o o d g o i n g = !1 
P •: 17,1; ” Rem ova L o 

i s v e r y g o o d g o i n q 
1: INK 7: PRINT PT 
ANY KEY TO CONTINUE 
s 05 

PAUSE O 
SEER s 05 •. 24 


an 
4 
' 4 
21 


24 


, 3 •: :: k h ■=. S 5 
290 BEEP 
300 
310 
350f 

350 LET PIECE5LEFT=45: LET PIEO 
E5TPKEN =0: LET FROMX=0: LET FROM 
Y=0 ; LET T0X = O: LET TOY=0: LET X 
■JuhPED =0 : LET Y JUMPED =0 
370 DIM PCS,S) 

FOR P = i TO 5 : LET P CP,S) =1: 
P(P,7)=1: LET P (P •. 2) = 1 : LET 
1)=1: NEXT P: 

FOR P = 6 TO 3 STEP -1: LET p 
P (2 : P) =1: LET P (7 ,P 
P)=1: NEXT P 


350 
LET 
P C P 
390 
i 1 , P ) 
) =1 
450j 
450 
CL 5 
470 
450 
490 


ONER 

PAPER 5 
FOR P =3 
PRINT PT 


BORDER 7: PPPER 7: 


TO 

P. 


IS 


500 NEXT P 
510 INK 2 

520 FOR P = 152 TO 24 STEP -15 
530 PLOT 15 ..P: DRPU 128 :0 
540 NEXT P 

550 FOR P = 15 TO 143 STEP 15 
550 PLOT P,152: DRPU 0,-128 
570 NEXT P 
5 O £ 

510 ODER 1 
520 FOR P =2 TO 15 STEP 2 
r 530 PR I NT PT 3 , P ss a :! ; PT 4 , P 

540 PRINT PT 5,P; a :: ,PT 5, P. 




550 PRINT PT 15,P; 
550 PRINT PT 17,P: 


' ,‘ PT 15, P.; 
; ; PT 15 : P; 


570 NEXT P 

550 FOR P =7 TO 13 STEP 2 

590 PRINT PT P ,2 ; S! a 11 ; PT P + 1,2; 

h , 4: : a":HT H + i , 4 ; : ^ ; h 

T R 14,; ‘ & 1 ; hT fl + i , 14; “ v- ; AT ft , 
15; “ a. “ ; ST Hr! , 15 ; “ V " 

700 NEXT S 

710 DUES 0: PAPER 7: INK 3 
720 FOR fi=8 TO 1 STEP -1 
730 PRINT PT 19-2*R,0;P 
740 NEXT P 
750 FOR P=1 TO S 
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;! fkE 5S '0' i0 



FLASH 

FLASH 


IF M$ = t5: ' THE 


760 PRINT AT 201+2*R.; A 
770 NEXT A 
750 PAPER I: INK 
790 PRINT AT 0,1 
RESIGN OR IF YOU 51 ; RT I, 1 
CANNOT NONE 
500 SEEP .25,24 
10 0 £ 

10 IS 

1020 PAPER 7: INK 0 
INT AT 9,20 j iS FROM : 

K 3 

1050 LET M S = INKEY S 
N GO TO 1050 

104-0 GO SUB 2000: IF CODE MS >45 
AND CODE MS<57 THEN GO TO 1050 
1050 BEEP .5,-12: GO TO 1050 
1050 BEEP .05,12: LET FROMX =UAL 
M$ PRINT AT 9,26;FROMX 
1070 fqr Z = 1 TQ 34 - NEXT Z 
10 5 11 111 w ■—m 

1090 LET M$ = IN KEY $ : IF M$ = SS! ‘ THE 
N GO TO 1090 

1100 GO SUB 2000: IF CODE MS>45 
AND CODE MS<57 THEN GO TO 1120 
1110 BEEP .5:-12: GO TO 1090 
1120 BEEP .05:24: LET FROMY=UAL 
M $ P RINT AT 9,29;FR0 MY 


INK 


PRINT AT 9 


FLASH 1 
FLASH 0. 


PR 

I 


IF MS = :s:s THE 


1150 PAPER 0: 

20 : 11 FROM : S! 

1140 FOR Z = 1 TO 54 : 

115C 

1150 PAPER 0: INK 
INT AT 12 : 20 ; !! TO : 

NK 3: PAPER 7 
1170 LET M$=INK£Y$ 

N GO TO 1170 

1150 GO SUB 2000 IF CODE MS>45 
AND CODE MS<57 THEN GO TO 1200 
1190 BEEP .5,-12: GO TO 1170 
1200 BEEP .05:12: LET TOX=UAL MS 
: PRINT AT 12,26;TOX 
1210 fqr Z = 1 TO 34- NE.*T Z __ 

122 a BH BBW — i M 1 

1250 LET M S = IN KEY $ : IF M$ = * s, ‘ THE 
N GO TO 1250 

1240 GO SUB 2000: IF CODE MS>45 
AND CODE MS<57 THEN GO TO 1260 


1250 BEEP .5,-12 
1250 BEEP =05,24 
: PRINT AT 12,29 


GO TO 1230 
LET TOY=UAL 
TOY 


MS 



X,TQ Y)=1 THEN GO Ty 1500 
13 2 01 

1330 LET XJUMPED =(FROMX-1)4(FROM 
X >T0X) 4- (FROMX41) ^ \ FROMX <TOX) 

1340 IF (FROMX>TOX) AND (FROMX-T 
OX < >2) THEN GO TO 1500 
1350 IF (FROMX<TOX) AND (TOX-FRO 
MX <>2) THEN GO TO 1500 
1350 IF (FROMY>TOY) AND (FROMY-T 
O'Y < > 2) THEN G0 TO 1500 
1370 IF (FR0MY <T0Y) AND 


(TOY-FRO 
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T : .1 i 

: v : 




l 


OR 


JUMPED =0 T 


XY JUMPED)=0 THE 


1390 LET XJUMPED=(FROMX-1)±(FROM 
X >T0X) -r (FROMX-ri) * (FROMX :TOX) 

1400 LET YJUMPED-(FROMY-1)*(FROM 
Y >TOY) + (FRQMY + i) 4 (FROMY <TOY) 

1405 IF YJUMPED=0 
HEN GO TO 1500 
1410 IF P(XJUMPED 
N QO TO 1500 
145 

1450 GO TO 1550 
1 


0 ( 

1510 BEEP 
AT 9:25; : 

GO TO 1010 

1 F FI £ 

1550 PAPER 
,! .;RT 12,25; :s 
1570 INK 2 PAPER 5 
1550 PRINT AT 19-2*FR0MY,2*FR0MX 

55 r ; PT 20- 2 ^FROMY s 2±FR0MX; l! _j si 

1590 OUER 1: PRINT RT 19-2*T0Y,2 
tTOX : ; RT 20-2*TOY , 2±T0X; ls V :: 

: OUER 0 

1500 PRINT RT 19-2*YJUMPED,2FXJU 
MPED ; ,l L ; RT 20-2*Y JUMPED .. 2±XJUM 
RED ; 


-16: PAPER 7: PRINT 
RT 12,25; S! 



1550 LET h(FkOMX, 
(TOX -.TOY) =1 : LET 
ED) =0 


r P.0 MY) =0 : L El F 
P (XJUMPED,YJUMP 


1570 LET PIECE5LEFT =RIECE5LEFT-1 



2550 IF LEN J$=2 THEN LET J$=J*+ 


2540 LET P*=5TR* RIECE5LEFT 

2550 PAPER 2: INK 6 

2550 PRINT RT 5,20; “YOU TOOK :! ; J 

$ 

2570 PRINT RT 9:20|“PIECES 


2550 IF PIECESLEFT<10 THEN LET P 
*=P*+" 

2590 IF PIECESLEFT >9 THEN LET P$ 
=P$ + ‘ ? 

2600 PRINT RT 10:20; “LERUING S! ; P 
$ 

2510 PRINT RT 11«20|“PIECES. 


2520 PRINT RT 12:20;“ANOTHER TRY 

7 ss 

2530 FOR R = 1 TO 2 
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2648 BEEP 1.3,2: BEEP .4.0: BEEP 
.4,5: BEEP .4,4: BEEP .2,2: BEE 
P 1=5,2 
2650 NEXT P 
2660 FOR R = 1 TO 2 

2670 BEEP 1.3.7: BEEP =4,5: BEEP 
.4,4: BEEP .4,2: BEEP =2,0: BEE 
P 1.5,2 
2660 NEXT R 

2690 PRINT PIT 13.20; *' CY OR N) 


IF R: j = “ ° THE 
THEN GO 


2700 LET R$ = INKEY $ 

N GO TO 2700 
2710 IF R $ = " Y " OR R$ = “u 
TO 350 

H720 IF R 5 = ”N" OR R$=“n“ THEN RR 
NDOMIZE U5R 0 
730 BEEP 



■— 1 '01 0 Dn ! H 8,8.1,3,15,11,29.62 
3020 DRTR 0,0 128 ‘, 192,240,208,18 
4,124 

3030 DRTR 62,29,11,15.3,1,0,0 
3040 DRTR 124,184,208,248,192,12 
8,8,8 

3858 DRTR 1,1,1,1,1,1,1.1 
3868 DRTR 1,1,1,1.1,1,1,255 
3878 DRTR 8,8,8,8,8,8,8,255 


Author: C. H. Stone 




Identisquares 



r iDfwnBBOTWBr 



R 

© 

c 

D 


1 



:• 




*4o 


4 

mm 


2 


yg 

♦04 

4xx 

■Jp#* ! 

■ :< fr 








3 


: 4 ' 

Tt x 




wS+ 

V* 


♦4S 


t 

Q € f?: 

*44 


4 



#4' X 

♦ Hjf 

VffP 

»4o 



Press ENTER to answer'. . 

. . 


Squares ere "*? Va|| 


You are shown a grid of boxes, each box containing six 
symbols. There are two boxes with the same symbols, 
although maybe in a different order. You have to find 
which pair of boxes has the same symbols. When asked for 
the answer, enter the letter for the column and the number 
of the row, for both boxes. For example, a3 b4 would 
mean that column a, row 3 was the same as 
column b, row 4. 


1 HfcM ********************** 

2 REM 

3 REM IDENTISQUARES 

4 REM 

5 HUM ********************** 

5 REM 

100 DIM m$(30) 

210 RANDOMIZE 

295 GO TO 1000 

300 REM ** Message ** 

310 PRINT AT 20,1; BRIGHT 1; FL 
ASH 1; PAPER 5.; INK 0; a< $ 

320 GO SUB 400 
330 IF INKEY$ < >“ 

0 


THEN GO TO 33 
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335 LET K * = INKEY $ IF = THE 
N GO TO 335 

337 IF k $ ; = ••• fi :: RND K. $ < = '•• Z THEN 
LET ?: $ = CHR $ (CODE ( K $ ) -32 > 

340 PRINT RT 20 . I :; 


345 RETURN 

350 H5h 4 4 ±n s t r u c t i n n 44 
350 PRINT RT 20:1; BRIGHT 1: PR 
PER 5; INK Q;®5 
395 RETURN 
400 PEN 44 Pips 4 4 
410 FOR i=i TO 2 
420 BEER 0,05:50 PRU5E P 
430 NEXT i 
445 RETURN 

450 Htiri 44 Draw border 44 
450 PRINT RT 0 s 0; f 8 FOR 1 =1 T 
0 20 PRINT RT i:0; :: | : ’: NEXT 2 
455 PRINT RT 21:0; FOR 1 =1 

TO 30: PRINT RT 21 •. 1 ; = NEXT 1 

470 PRINT RT 21.31; -| FOR 1 =2 

0 TO 1 STEP -1: PRl\-rC RT 1=31; | 

: NEXT 1 

475 PRINT RT 0-. 31; T" : FOR i =30 
TO 1 STEP -1: PRINT RT 0 , i ; 

NEXT i 


495 PETURN 

5 0 0 H 5 fi 4 4 K 8 £ P b £ f f M 4 4 
510 BEEP 1 : 15: BEEP 1,12 
520 BEEP =5:25: FOP X=23 TO IF 
STEP -0.5: BEEP . 1 , X : PRU5E 2 N 
EXT X 

545 RETURN 

550 RtM 44 Congratulations 44 
555 RESTORE 570 

550 PERD n:p: BEEP n40.25 : p: IF 
n >0 THEN GO TO 550 
570 DRTR 1:12:1:14:1,15: 2 : 17 2 , 
5 : 12 


572 DRTR 1:17:1.15:1:17:2:19:2. 
5,14 


574 DRTR 1 , 14 : 1 s 15,1 s 17,1 = 5 .. 21 : 
0=5:19 

575 DRTR 1,19 :1:17:1,17 : 1:15: 1., 
14,1 : 15,3 : 17 

550 DRTR 0,0 
595 RETURN 


599 

REN 



700 

PEN 

4 4 OhDOS £ 

s £ t o ? s y n; b 

f 0 f 

a 

bO X 4 4 


701 

PEN 

£5 0 X t 0 U S £ 

I n q 

702 

PEN 



710 

FOR 

X =1 TO 13V 

LET U(q:X 

: NE 

:xt 



720 

LET 

S 5 (q) = :1 :: 


730 

FOR 

X =1 T0 5 


— -■ •=; 

LET 

syfft = 1 4 I NT 

( RND 4S a V) 

cr 

IF 

U (q , sym ) =4 

THEN GO TO 

740 

LET 

5 5 i q , X ) =V $ 

(s y ro ) 

750 

i_ET 

u (q •. s ) = u 

l q , s y m > 41 

7F.0 

N EX- 

T x 


750 

LET 

used =0 


790 

FOR 

x = 1 TO q -1 


7Q5 

LET 

m a t c h = 1 


500 

FOR 

y =1 TO say 
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310 It U ( X .. y ) > U ( q . ^ ) f HizN Liz ! 

si a t ch =0 

next y 

IF na t Ch =1 THEN LET US£d =1 
NEXT x 

IF used =1 THEN GO TO 710 
RETURN 
REM 

RizM * * 5H o u i n s t r u c t i o n s 
REM 

RESTORE 3000 
PRINT H'T 2.0; 

RERD i $ IF i $ (1) < > ;i © vs THEN 
RRINT i$: BEEP =1,20: GO TO 107 

0 

1200 Lt s m 4 = “Good LucK i press 
any Key * GO SUB zOO 

1999 REM 

2000 kzM 44 Generate puzzle 44 
20.01 REM 

2040 Lti! m $ = lv Choos i ng the square 

s n o u s s * G 0 5 U z 3 z 0 

2050 RRNDOMIIE 

2050 lz \ p .a i r s = 1 

20.-0 Dim p (pairs, 2) 

2030 DIM s$ (IS:5) 

2090 _ LET s a v =3: DIM v 4 (s a v) : D XM 
u (15 s s a v ) 

2095 RESTORE 3200 


2110 FOR i 

= 0 

TO 7 

RERD 

by te : 

PO 

KE U5R 81 a 15 

+ i 

, byte 

NEXT 

i 


2120 FOR 1 

= 0 

TO 7 

RERD 

by te : 

RO 

KE U5R ; "b : " 

+ i 

, by te 

NEXT 

i 


2130 FOR 1 

= 0 

TO 7 

RERD 

by te ; 

PO 

KE U5R 0 :! 

+ i 

, byte 

NEXT 

i 


2140 FOR i 

=0 

TO 7 

RERD 

by te : 

PO 

KE U5R 8, "d “ 

■f i 

* byte 

NEXT 

i 


2190 RESTORE 

3400 




2200 FOR 1 

= 1 

! L* S a »/ : rIZHU V 5 '• 

i ) : 


_ NEXT 1 

2 2 z 0 tun. i=i TO Pa i rs 
2270 LET q = 1 -r I NT (RND415) 

2230 LET r=l + INT (RND rid) 

2290 IF r=q THEN GO TO 2230 

2310 Liz I P ( i , 1) =q : Liz I P ( i ,2) = r 

2345 NEXT i 

2350 FOR q = 1 TO 15 

L’360 It q < >P (1:1) RND q < >p i 1,2 ; 

THEN GO SUB 700 

2370 BEEP s 3 : q 

2330 NEXT q 

2450 LET q=p (1 : 1) • LET r=p C1 2) 
2500 GO SUB 700 

2515 FOR j=l TO sav: LET U if = 

U (q .. j ) NEXT .1 

2520 LET Z 4 = S 4 ( q J : FOR .1=1 TO 5 
2525 LET n =1 +INT (RND*6) : IF z$ ( 
n) = ' THEN GO TO 2525 
2z3 0 LzT s 4 C r , j ) =z 4 C.n ) • Lm z 4 in 

) = '■'■ '*■' 

2540 NEXT j 

2999 REM 

3000 kzM 44 Display puzzle 44 

3001 REM 

3050 BORDER 5: RGPER 7 INK 0: 0 

L5 . GO SUB 450 

3050 PRINT RT 1:2; PRPER 5; IDE 


320 
3 3 0 
340 
350 
390 

1000 

1001 

1050 

1050 

1070 
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NTISQUARES " 
3090 LET b$ = ;: 
3100 PRINT AT 3 
5H 1 ; PAPER 5 ; 


,4; BRIGHT 1 
INK 6; : ill 


FLA 


3110 FOR i =4- TO 13 
3lib LbT inV=1- i i - ( 
3150 PRINT AT i s 4; 
5H 1.; PAPER 5; INK 
v h ' i ; ci b 

3130 NEXT i 
3140 PRINT AT 19:4; 
ASH 1; PAPER 5; INK 


±N l ( i /5) ) *2) 
BRIGHT 1; FLA 
6; 1WJE95E in 


BRIGHT 1; 

6 ; • = = = 


3150 

LET C 

= Q 



3150 

FOR i 

= 65 TO 

53 


3170 

P9.T?-\T 

A ! 4 , 

c GHR$ (i 

) ; 

3150 

LET r 

= C 44 



3190 

NEXT 

i 



3500 

LET L 

= 6 



3510 

FOP i 

= 1 TO 

4 


3550 

PRINT 

A ! L , 

5, i : LET 

L = L 

3530 

NEXT 

i 



3550 

FOR i 

=50 TO 

153 STEP 

35 

—• 4 b* 0 

PLOT 

i , 36 : 

DPAU 0,96 


3570 

NEXT 

i 



3300 

FOR i 

= 35 TO 

135 STEP 

54 

3310 

PLOT 

50 i . 

DPAW 155, 

0 

3350 

NEXT 

1 



3400 

LET X 

= 1 



3450 

FOR L 

= 5 TO 

15 STEP 3 


3430 

FOR c 

= 3 TO 

50 STEP 4 


3450 

PRINT 

AT L , 

r ; 


3455 

FOR j 

= 1 TO 

3; PRINT 

INK 

T (RNDt7:) 

; S 5 (X , 

j) : NEXT 

j 

3460 

PRINT 

Pi i l+l, c 


3455 

FOR j 

= 4 TO 

5: P91\TT 

INK 

T (RND*7) ) 

s 5 (x , 

j );: NEXT 

j 

3457 

LET X 

= X 4 1 



3470 

NEXT 

r 



3430 

NEXT 

r 



3490 

Lt! i»$ = “Fre 

SS ENTER 

to 

£ f is: 

: :: ; GO 

BOB 3 

50 



TO 


IN 


(IN 


a n s 


35O0 

3550 

0 


RESTORE 3500 
IF INKEY $: ‘ 


THEN GO TO 400 


3550 READ dY; IF d >@ THEN BEEP 
d,t. GO TO 3550 
3550 GO TO 3500 
3999 REM 


4000 

REM 4 4 

Get answer 

44 

4001 

4050 

REM 

INPUT “ 

5 p u a r e s a r e 

? :s LIN 

E r* 
4050 
4070 

LET P$= 
FOR i=l 

TO LEN r $ 

IF r 5 (i ) 


C > 11 tv ! HbN Lb ! P $ -p $ 4 f $ ( i ) 

4030 NEXT i 

4090 Lb! p$=(p$ + !: S! ) ( TO 4) 

4100 FOR i=l TO LEN P$: IF P$ ( i) 
>="a“ AND p $ ( i) < = : Z 5 : THEN LET p$ 
(i) =CHR$ (OODb (p$ ( i) ) -35) 

4110 NEXT i 
4 _l ^ L- 1 j. M a p a i r s 4.« 

4130 LET a (1... 1) =CODE ip $ i 1) ) -64 + 
(CuDb (p$ (5) ) -49) ±4 
4150 Lb! 5(1,5) =CODb (p $ (3) ) -544 
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(■■CODE (pi (4) ) -49) *4 
4160 LET OK=0 

4170 IF 3(1:1) =P (1.15 P.ND 3 (1,2) 
=p(l:2) THEN LET 0 k = 1 
4180 IF 3(1,2 5 =p (1,1) PND a (1,1) 
=p(l,2) THEN LET oR=l 

4499 REM 

4500 REM ** Check a ns i.uer h 

4501 REM 

a-550 IF ok =0 THEN let 8$=“5orry_ 
- that s not r i q h t ! •* •. GO SUB 3s 
0: GO SUB 500: PAUSE 0 
4570 IF Ok =1 THEN LET »$ = "WeU S 
p o t ted - t h a t ■' s r i q h t ! ” : GO SUB 
350 GO SUB 550 PAUSE 0 
4580 LET m$ = "Do you want anothen 
qo : GO SUB 300 
4590 IF k $ < > “ y “ THEN _ PAPER 7 iN 
K 0. : CL5 GO ! 0 9999 
4600 IF ok=0 THEN GO TO 3000 
4610 IF ok =1 THEN GO TO 2000 

7999 REM 

8000 REM ** inst ruction d at a * * 

8001 REM 

8010 DATA IDENTISOURHt 

5 “ , " " 

8020 DATA “You are shown a grid 
o f b o x e s , 

8030 DAT A “e a ch box containing s 
i.x symbo is . " 

8040 DATA “There are two boxes w 
1 1 h t h e " 

8050 DATA "same s ymbo l s, aLthoug 
h nay be in “ 

8060 DA. i A ” a d i f f e ren t o r der . Y 
ou have to" 

80 70 DATA “ fi n d whic h Pair of bo 
xe s ha s the “ 


5050 

DhTh ; 55r»E 

£ y»* b o l 

£ s “ 

5090 

DhTh “When 

a s K e d 

fo r the an 

s w £ r ; 

ante r 25 



5095 

DR T9 'the 

L Etta r 

f o r t h e c o 

L u n n 

a n d :t 



5100 

DRTR “the 

n u m he r 

f o r t h e r o 

w . fo 
5110 
} p • !! 

5120 

r both" 
DRTR 11 the 

boxes s 

For e x a n p 

DRTR •' 

a 5 b 4 5 * 


5150 

Dh i h ’■ 1 w o u L d rn e a n 

t h a t c o l u m 

n a : 

row 3 11 



514-0 

DRTR -yas 

t h e £ a Hi e a s c o t u rn 

n b 

row 4. “ ,i M 

: * 


5190 

DhT 9 »>) ; 



5199 

REM 



5200 

REM * UDG 

d a t a f o 

r ca rd and 

0 t h E 

: r symbols 



5201 

REM 



5210 

DATA 0,8,28,62,12 



REM Diamond 

8220 DATA 0.34.119,127,127,62,28 
,8 REM He a r t 

8200 DA!A 0,8,28,62,19 7,89,B,98: 
REM. Spade 

8240 DATA. 28,23,28,127,127,12 7,8 
, 28 

3399 REM 

8400 REM * Symbol data * 
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8481 REM 
8418 DhTh 
, '' C“ , “D“ 
859S REM 
8588 REM 
8581 REM 


X " ; ' 0 § 

M u s i c d a t a 


+• 


8610 DPTR ,2,12 : ,2 : 14 f .5 
5 , . 2,14.: =5,12:0: 0 
8 9 9 0 G 0 T0 99 99 
9000 INPUT s, Pi Le to sav- 

NF f $ 

§010 SPUE 1 ?$ 

9020 GO ' 0 Q'-j'-iCi 

9100 INPUT ■••PiTp to eras 


INE f $ 

9110 ERASE ••Rr 5 : 1 f $ 
y 1 ’d. 0 ! j u i u 9 9 9 9 
9200 PAPER 7: INK 0: CL5 
9999 


Author: J. D. Perkins 


‘' H , ■ ' F; 


15,=2,1 


Amazin’ 



The object of the game is for the player to find his/her 
way through a large maze, whilst racing against the clock. 
The aim is to travel from the bottom of the screen to the 
top, getting as near to the right-hand corner of the screen 
as possible. There are 10 levels of difficulty and moves 
downwards or to the left of the screen reduce the player’s 
score, whilst moves upwards or to the right increase it. 


1 REM > AMAZIN'< 

2 REM COPYRIGHT C BILLENNE55 

3 REM 1984 

5 DIM A$ (20.32,1) 

6 LET E = 148 

10 BORDER 1: PAPER 1 INK 7: C 

i_5 

20 GO SUB 9900 

30 CL5 : PRINT RT 10,0;"PLEASE 
WRIT WHILST MAZE IS BUILT” 

48 GO SUB 9500 REM BUILD MAZE 
50 LET MODES=-10: GO SUB 8900 
90 GO SUB 9000: REM PRINT MAZE 
100 REM MAIN GAME ROUTINE 
115 LET SEC5=0: LET SCORE=0: LE 
T BONUS=0 

120 LET ROS =640: GO SUB 8808 
138 PRINT AT 28,8;CHR$ E 
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140 GO SUB 8330 
160 Lt ! SCOFFS!©©© 

160 POKE 23572,0: POKE 23673-0 
1000 REM MRIN GPME ROUTINE 
1010 INPUT INKEY$ 

1020 LET Q$=INKEY* 

1030 IP Q$ = “ •* THEN GO TO 2000 
1100 HtM MOVEMENT ALGORITHM 
1110 Ir NOT 8$=“5" THEN GO TO 12 
00 _ 

1120 Ir X=0 THEN GO TO £000 
1130 IF Y = 20 THEf-i PRINT PT Y , X : ” 
LB! p O 5 = P 0 S -1 : G 0 5 U B S 0 0 0 
RR1N ! P ? Y , XCHR $ E : LET M0UE5 = M 
0UES + 1: G0 T0 2000 
1140 ir H$ (SY,5X) =CHR$ 147 THEN 
GQ_TQ 2000 

1160 ir P$ (SY X) =CHR$ 145 THEN G 
0 TO 2008 

1160 PH IN! PI Y , X ; P$ (SY , SX'i • LET 
_ P 0 S = F 0 5 -1: G 0 5 U B 8 00 0 : P RI NT w 
’ Y,X; OVER l.;OHR$ E: LET MOUES = 
M0UES + 1: G0 TO 2000 
1200 Ir NOH Q$ = ! 'S : ' THEN GO TO 13 
00 

1210 IF Y =20 THEN GO TO 200O 
1 L 20 ir H$ (SY 5X) =CHR$ 145 THEN 
GO TO 2000 

1230 ir Y <19 THEN IF P$(5Y+I,SXi 
=CHh$ 144 THEN GO TO 2000 
1240 FHINT P! Y,X;P$(SY,5X): LET 
F 0 S = P 0 S +32: G 0 S U B 8 0 8 8 : P RI NT 
HT Y , X ; OUbR 1 : CHR $ E: LET MOUE-5 
=M0U£S +1: G0 TO 2888 
1380 ir NOT Q$ = , *7" THEN GO TO 14 
00 

138b IF Y =8 THEN IF NOT P$(SY,5X 
)=CHK$ 144 THEN GO TO 3080: REM 
YOU HPUE WON ! 

1318 ir Y > 8 THEN IF H$ (SY-1- 5*: = 

CHk$ 145 THEN GO TO 2888 

1328 IF Y <20 THEN IF P $ (SY-SXi =C 

HR5 144 THEN GO TO 2888 

1330 ir Y=28 THEN PRINT PT Y,X:" 


1348 
$ (SY 
1358 
1358 
1378 
1480 
00 

1418 

1428 


ir Y <20 THEN PRINT PT Y,X;P 
r, K I 

Lb! P 0 S=P0S-32: G0 5 UB 8 8 88 
PRINT PT Y,X.; OUER 1; CHR$ E 
LB! BONUS=158: GO TO 2888 
ir NO! 0* = ,, 8" THEN GO TO 20 


ir X=31 THEN 
IF Y =28 THEN 
LET P85 =P05 + 1 
PRINI PT Y,X;CHR$ 


GO TO 2880 
PRINT PT Y,X;• 
_G0 SUB 8888: 

B: GO !0 2808 


5X + 1J =CHR$ 147 THE 


1138 ir P$ (SY , SX) =CHR$ 145 THEN 
GO TO 2880 
1448 ir P$ (SY 
N GO TO 2888 
14 b 8 PRINT PT Y ,X; P$ (SY , 5X.) : LET 
_ P 05= P 0 S +1: G 0 5 U B 8 888: pRINT fl 
T_r., X.; OUbR 1; CHR$ E LET BONUS = 
i-58: GO TO 2888 


2888 pbM STPTU5 UpDPTF 
2818 GO SUB 8388 


Amazin' 
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2020 LET BONUS=0 

2030 GO TO 1000 

3000 REM GAME ODER 

3010 FOR H =0 TO 50 

3020 OUT 254:4: OUT 254,1 

3030 NEXT H 

3040 CL5 

3050 PRINT AT 10,0; FLASH 1; 81 CON 
GRATULATIONS-YOU HADE ESCAPED“ 
3050 LET SCORE=5CGRE+X*100 
3070 PRINT AT 12,0: PAPER ( (SCOP 
E <0) +1) j "YOUR SCOPE WAS “; SCOPE 
3050 INPUT "ENTER 5 TO TRY THE S 
AME MAZE 11 "AGAIN , ENTER N FOR A 
NEW MAZE 15 -.; LINE 0$ 

3090 IF Q$ = 11 5 !! THEN GO TO 50 
3100 IF 9$="N" THEN GO TO 30 
3110 GO TO 3050 
7999 STOP 

5000 PEN PLAYER P05 CALCULATOR 
5010 LET Y=INT CP05/32) 

5020 Liz i X =PGS- (Y *32) 

5030 LET SX=X+1: LET SY=Y + 1 
5040 RETURN 

5100 PEN TIME CALCULATOR 

5120 LET SECS =PEEK 23672*256*PEE 

y; •— p t —? 

813 0 ’ L ET 5 E C 5 = I NT (5 E C 5 / 5 0) 

5140 RETURN 

5200 REM SCORE CALCULATOR 

5210 LET SCORE=(SCOPE+50NUS) - i (M 

CUES* (MODES >0) ) *DIFF; - (SECS*DIFF 

) 

5220 RETURN 

5300 REM POINTS PRINTOUT 
5310 GO SUE 5100 
5320 GO SUE 5200 

5350 PRINT AT 21,0; "TIME : 11 ; SECS 

!1 , ; 11 SCORE . 41 ; SCOPE; 11 

53S0 RETURN 

5900 REM DIFFICULTY FACTOR 
5910 CLS : INPUT “INPUT DIFFICUL 
TV 0-g --•■■••0 15 EASIEST, 9 IS HA 
RDEST “ - •• ; DIFF 

5920 IF DIFF>9 OR DIFF<0 THEN GO 
TO 5910 

5930 LET DIFF-DIFF+i 
5940 LET MODES =M0UE5-fDIFF 
5950 RETURN 

9000 REM MAZE DISPLAY SUBROUTINE 
9010 CLS 

9020 FOR X=0 TO 19 

9030 FOP Y =0 TO 31 

9050 PRINT AT X ,Y;A$ i X +1 : Y +1) 

9070 NEXT Y 

9050 NEXT X 

9090 RETURN 

9500 REM GENERATE MAZE 
9510 FOR W=i TO 20 
9520 FOR X = 1 TO 32 
9540 LET Z=INT (RND*4) 

9550 LET LTR = 144+Z 

9560 LET A$ (W X) =CHP$ LTR 

9550 NEXT X 

9590 NEXT W 

9599 RETURN 


Amazin’ 


9900 HfcM USER DEFINED GRAPHICS 
9905 Dh!R 25s,0,0,0,0,0:0,0- RFH 
UDG A 

9910 DATA I, I, i , 1, I., 1., i ., i : REM u 
D y t> 

9315 DAT A 0 ., 0,0 .,0,0,0,0,255: REM 
UDG C 

9920 DA ! A 128,12S , 12S , 128,128 *12 
8,128,128: REM UDG D 
9y2s DATA 0,24,24,126•2R 86•56•0 
REM UDG E 
9927 RESTORE 
9930 FOR X=0 TO 39 
9940 READ V 

99t»0 POKE (USR “A ” + X) ,Y 
9960 NEXT X 
9970 RETURN 


Author: C. Billenness 


Mergers 



A nice simple puzzle - just two ordinary English words are 
involved. The trouble is, one of them is spelled backwards 
and then the two of them are mixed up together. We give 
you the mixed-up words and your job is just to separate 
them again. To help a bit, you can move the letters apart 
on the screen until you think you have sorted out the two 
words, then ask the computer if you’re right. 


180 DIM (30) 

295 GO TO 1888 

388 RtM ** Message * + 

318 PRINT hT 20,1; BRIGHT 1 PL 
RSH 1; PRPER 5; INK 8 t« $ 

320 GO SUB 488 

338 IP INKEY$ <>“" THEN GO TO 33 

8 

335 i_ET K. S = IN KEYS : IP *.$ = "“ THE 
N GO TO 335 

337 IP K i ;• ="H ” kND K $ < = ”Z“ THEN 
LET K$=CHR 5 (CODE (K$)-32) 

348 PRINT PT 20,1;" 

345 RETURN 

358 REM + t ins truc tion ** 

368 PRINT PT 28,1; BRIGHT 1; PR 
PER 5; INK 8;ms 
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335 RETURN 

430 RsM riSi 44 

413 FOR i=l TO P 

423 BEEP 3,05:53: PSU5E 2 

433 NEXT i 

445 RETURN 

450 hem *4 Draw border 4 + 

463 PRINT RT 8,8; “p FOR -=1 T 
0 20: PH I NT RT i , 3; i " : NEXT •; 

465 PRINT RT 21:0; L”: FOR i=1 
rO 33: FKJ.N1 RT 21 , i ; - : NEXT - 

_4^3 PkINT RT 21.31;**J" FOR i=2 
0 rO 1 STEP - 1 : PRINT RT i .31; " I 
": NEXT i 

4 ,-"5 fkINI fll 0,31.; ^ !! : FOR i =30 
rO 1 STEP -1: PRINT RT 8 , i ; ■ 

NEXT i 
435 RETURN 

500 HtH 4 * Hasp berry 
510 BEEP 1,16: BEEP"1,12 
_520 SEEP .5,25: FOR X=23 TO IT 
5!EF -3. 5 : BEEP = 1 ,X: PAUSE 2 : N 
EXT x 


545 RETURN 

550 hEM ttt Congratu lations h 
555 RESTORE 573 


563 READ 
n >0 THEN 

573 DfiTR 
5,12 

572 DRTR 
5,14 

574 DfiTR 
0.5,19 


H, p: BEEP n 40,25,P IF 
GO !0 550 

I , 12 , 1 , 14 , 1 , 16 , 2 , 17 , 2 . 
1 , 17 , 1 , 15 , 1 , 17 , 2 , 13 , 2 . 
1 ., 14 , 1 , 16 , 1 , 17 , 1 . 5 , 21 , 


5 76 DfiTR 1,19,1,17.1.17.1.16.1. 
14,1,15,3,17 
580 DfiTR 3,3 
535 RETURN' 

639 REM 

733 ksM 4 * Heverse Letters in r 


$ 


731 REM 

713 LET X $ = “ *’ 

790 rO f i=LEN r$ TO 1 STEP -1 
730 Lsi x $=x $ 4 r $ i 11 
743 NEXT 1 
753 Ls i r 5 = x $ 

763 RETURN 

8 00 H S M 4 4 5 !_! fc. r 0 u tine t n ,H p r r, ,-i p 

a w 0 r d f r 01 » data List 
523 FOR X=1 TO LEN q$ 

530 Ls! x c =CODs q $ (x)-IS 
543 IF xc <65 THEN LET X C =X C +25 
545 Ls! q? (X) =CHR$ XC 
850 NEXT ;< 

863 RETURN 
339 REM 

1000 fsM * 4 5h 0 i.ii i ns t r u c t i 0 n « 4 ♦ 

1001 REM 

1053 BORDER 7: PAPER 7 INK £3 • r: 
LS 


1063 RESTORE 8338 

13x8 PRINT RT 1,0;: READ i$ 

1580 PRINT i$: READ i$: IF i $ i 1; 
<>"©** THEN GO TO 1383 
1033 INK. 3 

1500 Lsi m$3“Fress any Key to m 
ntinue GO SUB 338 
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1999 

REM 



2000 

REM 

* * Genera te p uz z le 


2001 

REM 



2050 

RRNDOMIZE 


2 050 

DIM 

U ( b 0) 


2070 

LET 

w1=1+INT (RND*50) 


2050 

IP U 

(ft >1) =1 THEN GO TO 

2070 

2090 

LET 

U (U 1) = 1 


2100 

LET 

w 2 = 1 -r INT (RND±50) 


2110 

IP u 

i.M 2) =1 THEN GO TO 

2100 

2120 

LET 

U(w2)=1 


2150 

RESTORE 5500 


2150 

FOR 

i=i TO Wl: REfiD 3$ 

: NEX 

T i 




2170 

RESTORE 5500 


2150 

PGR 

i =1 TO in2: REfiD h$ 

: NEX 

T i 




2190 

LET 

q 5=35: G 0 5 U 5 S 0 0 

LET 

a$=q$ 



2195 

LET 

q 5 = b 5 : G 0 5 U B 5 8 8 : 

LET 

b$=q 5 



2200 

LET 

f 5 = b 5 : G 0 5 U B 7 0 0 : 

LET 

b $ = r 




2205 

let 

3 r e v =0 


2210 

IP LEN a $; LEN b$ THEN 

LET x 

$=3$ 

: LET 

3 5 = b 5: let b$=x$ 

LET 

a r a v 

= 1 



2250 

REM 

* Merge a$ and b$ 

a v a n l 


M 

2250 LET p$=3$: LET q$ = b* 

2270 LET a L 0 =INT (LEN a$/2 + i; : L 
ET ahi=LEN a $-1 

2250 LET h L0= INT (LEN b 4/3 + 1) : L 
ET bhi=LEN bi-1 

2300 IP a L 0 < b L 0 THEN LET ov Lo=hl 
o - I 

2310 IP at0= bt o THEN LET oV L o= bl 
0 

2320 IP bhi >ahi THEN LET ovhi =a.h 
2 rl 

2330 IP bhi=ahi THEN LET ovhi=ah 
2 

2350 LET na=0VLo41NT {RND*C0vhi- 

0 V t 0 ) ) 

2350 Lb i nb = iNi (na+0 = ^thND) 

2400 Lb i c $ = :: iS : Liz i f t a 3 3 =0* 

2450 LET r $ = b $: LET p=nb 

246 0 Q 0 5 U b 2 5 0 0 

2470 LET b$=r$: LET nb=P 

2450 LET rt=aj: LET p=na 

2490 G0 5U 5 2500 

249b Lb! a$=r$: Lbi na=p 

2500 IP n a > 0 OR n b > 0 THEN GO TO 

2420 

2510 LET a*=p$: LET b$=q$ 

2550 GO TO 3000 

2500 RbH *tt Subroutine to take ch 
u n K o f r $ , a a d t o c 4 
2520 LET L f=LEN r$ 

2525 IP t f =0 THEN RETURN 
2525 IP P =1 THEN LET t C=LEN f$ 

GO TO 2550 

2530 IP t f :• =p 42 RND f lag3=0 RND 
RND : .2 THEN LET LC=3 LET f la3 3 = 
1: GO TO 2650 

2535 IP C t r > =p + 3) OR ( L r ;• =p +2 RN 
D fL a33 = 1) THEN LET Lc =2: GO TO 
2550 
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2640 IF L r ;• =P +1 then LET Ic=INT 
(I.5+RND): GO TO 25S3 
2650 IF Lr=p THEN LET i.C=l 
2680 LET c $ = C 5 4- r $i TO L C) 


2590 

LET f$=r$( tc+l 

TO ) 

2700 

LET p=p-i 


2750 

RETURN 


2999 

REN 


3000 

Htz M ** Display 

puzzle 

3001 

REN 


3050 

RRRER 7: INK 0: 

: CL5 

3070 

GO SUB 450 


3080 

PRINT RT 10:17 

5 P ress 5 or 


to stove backwards" 

3090 PRINT AT 11,1;"of forwards 
along the word.** 

3100 PRINT PT 13,1,“Press 7 or 6 
t o st o v s Letters'' 1 

3110 PRINT PT 14 , 1 ;"op or down t 
o separate words." 

3120 PRINT PT 16,1;"Press ENTER 
to try your words. 

3130 LET 11=3: LET 12=4 
3150 LET l$=C$ 

3150 LET u$=" 

"l TO LEN l$) 

3170 LET c 1 = INT < (32-LEN t$;./2)- 
1 

3180 PRINT PT L1..C1 + 1; BRIGHT 1; 

u $ 

3190 PRINT PT 12.C1+1; BRIGHT 1; 

L $ 

3999 REM 

4003 RtM 44 Get answer ** 

4001 REM 
4050 LET 0=1 

4103 FOR i=11 TO 12 PRINT PT i, 
clrc; FLASH 1; BRIGHT 1; ODER 1; 
" 11 : NEXT i 

4123 PPU5E 3: LET k 5 = INKEY$ 

4140 FOR i=i.l TO 12: PRINT PT i, 
0 14-c ; FLPSH 3; BRIGHT 1; ONER 1; 
" " : NEXT i 

4203 IF k $ = “5" PND 0 >1 THEN LET 
0=0-1: GO TO 4130 

4223 IF k $ = "©“ PND 0 <LEN 1$ THEN 
LET 0=04-1. GO TO 4100 
4243 IF *5 = "5" THEN LET L $ ( o ) =0 5 
tO : LET u$(0=“ ” : PRINT PT 11, 
0 14-c u $ (c) ; P ! L2 . c 1 + c ; L $ l c ) : GO 
TO 4130 

4263 IF k$="7" THEN LET L ${€'>=" 

“ : LET u $tc) =C$ i. 0 > : PR INT PT 11, 
0 14-0 ,' U % i. 0 ) ; PT L 2, 0 1 4- 0 : l $ ( 0 ) : GO 
TO 4130 

4283 IF k $ =CHR $ 113J THEN GO TO 

4503 

4380 BEEP .25,25 
4320 GO TO 4100 

4499 REM 

4500 RtM ** Check answer ** 

4501 REM 
4513 LET ok=0 

4520 LET r =1. LET s=l 
45=5 IF r/LEN >J $ THEN GO TO 4550 
4533 IF u* «D ='* “ THEN i_ET r = r 4-1 
: GO TO 4525 
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4*40 Liz i U 5 (S ) =U % i f ) : Liz ! S =S + 1 . 

LET - f = f +1: GO TO 4525 
4-550 Lizi u $ =y 5 J TO S -1) 

4550 IF u$=at OR U*=b$ THEN l_ET 
0K =I: 90 TO 4700 

4520 Liz ! r $ =u $ : 90 5U* 700 : Liz ! 

u i =' i 

4530 IF u$=a* OR u $ = b* THEN LET 
o K -1 

4700 IF Ok =0 THEN LET #*="URONG_ 
- you're all mixed up ! :s 90 SUd 
350 90 SUB 500 PRU5E 0: GO TO 

4750 

4709 IF a rev =1 THEN LET r$=a$: 9 

0 SUB 700: uET a* = r* 

4710 LET 5|= (a$ + :: 

") I TO LEN C $) 

4711 IF a rev =0 THEN LET r$ = b$: 9 

0 SUB 700: LET b* = r$ 

4712 LET b$ = ( b5-r 
11 ) (1 TO LEN C$) 

4715 PRINT BRIGHT 1; RT 11, cl + 1; a 
5:RT 12,C1+1 :bt 

4720 LET m$ = - : R 11 sorted out - Ue 
LI done • ,! : 90 SUB 350 90 SUB 5 


50 PRUSE 0 

47*0 L*! at $ = :: How about another g 
0 ? (Y/N) ;i : 90 SUB 300 

4750 IF k$0 !! U** THEN OLS : SO TO 
9999 

4770 IF ok =1 THEN 90 TO 2000 
4750 IF o k=0 THEN GO TO 3000 


7999 REM 

5000 REM ee 

5001 REM 
5010 DRTR “ 


Instruction data ee 
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5020 DRTR 
- just !; 
5030 DRTR 
w 0 r d s ! *" 

5040 DRTR 
5050 DRTR 
o ? t h e m i s 
5050 DRTR 
then the :: 
5070 DRTR 
UP :: 

5050 DRTR 
u the 15 
5090 DRTR 
job is” 
5100 DRTR 
again= 
5110 DRTR 
an !iiOve :: 
5120 DRTR 
t h e 1S 

5130 DRTR 
k ; -iou i: 

5140 DRTR 
wo uo r ds .. ■ ■ 
5150 DRTR 
i f y o u •' r e 
5150 DRTR 
at the ls 
5170 DRTR 


R nice simp Le puzz Le 

t w o o r d i n a r y En g t i s h 

i n vo Ived = ' ,s 
i he t r ou b te is , one 

s p e l L e d ba c k w a r d s a n d 

t w o o f t h e m a r e m i x e d 

t o g e t h e r = Ue g i v e y o 

m i x e d u p u o r d s s Y o u r 

j u st t o se p ar at e the m 

To help a bit, you c 

t h e L e 11 e r s a p a r t o n 

screen u nt i L you t hin 

h a v e s o r t e d o u t t h e t 

then as k the corn pu te r 

r i g h t« No w h a v e a g o 

first one a s s :: 
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8180 DfiTR ”© i: 

8599 REM 

8600 Ktii * Coded words for puzzl 
£ 

8681 REM 

8685 DfiTR “QXDOB" . ”NB5F0” , "UYMKU 
, “ZKCDO 11 , "WYX0I" 

8618 DfiTR “UYXDR” ■ “K8SE0 11 .. “U5U5D 

“,“CDENI”.“OBKCC” 

8628 DfiTR “UKGIQB 11 ,“BOGK.BN",“MOX 

D B 0 “ . ”R o K U DR”, 11 Y L D K S X 11 

8638 DfiTR “liYUYEB" , "ZYUSMO” , “MYW 

U Y X 11 ; 11 K D D K M U 11 11 l-JE C M U 0 11 

864-8 DfiTR “USMOXMO” , "ZBSFKDO" , “C 

DKDSYX 11 , “FQRSMuO 11 , "ZEBZYCO” 

8650 DRTfi 11 P5DX0CC" , 11 0WYDS'YX 11 , ’ 1 B 
QFQBCO “ “2KD50XD 1 " , “LKB8KSX 11 
8668 DfiTR “SXDOB0CD", “BOUKDSYX” 
"KDDSDENO” , 11 MYXDBKBI“ , 11 ZYUSD5MC 11 
8678 DfiTfi ‘‘0UZUY10B 1 ’ , 11 PB0fiE0XD” 
“LEGSX0C C",“NYMEU0XD” ,“MR0W5MKU : ' 
8688 DfiTR “N5B0MD5YX”,“OUOBQOXMI 
, “COXDSWOXD” , “SWWONSKDO’* , ”RKZZS 
XGCC 11 

8698 DfiTR “FQQODKLUO",“0X0BQ0D5M 
“ .. “SUZYBDKXD 11 , “CELCDKXMO" , “MRKBK 


HD 05 
5990 

GO TO 

QQQQ 


9000 

INPUT 

;: Pi t€ 

t 0 

NE f $ 



9010 

SPUE 

* 11 a 11 ; i; 

f * 

9020 

GO TO 

gaga 


9100 

INPUT 

S! F 1 le 

to 

INE 

ft 



3110 

EPP5E 

i; nU : 1, 

f $ 

3120 

GO TO 

9333 


Author: N. P. Bradley 



The Wedding 



A game for the sober-minded only! You are the best man 
and you have to get Alan to the church to marry Katy. 
However, Alan has a few drinks to calm his nerves. The 
number of drinks is up to you, but beware, too many 
drinks and Alan’s movements cannot be properly 
controlled by the cursor keys! 


10 RtM *********************** 
£0 REM * Program THE UEDDIKG * 
30 RtM *********************** 


40 REM 
50 REM 
50 REM 
70 REM 
50 REM 
90 REM 
100 REM 
110 REM 
120 REM 
130 REM 
140 REM 


ij : H : 10 P Pin 9 IIJU ly 1953 



45 K 5 1n c La i r 5p e c tr u m 


210 INK 0 
220 BORDER 5 
230 PRPER 5 
240 CL5 


250 PP1?PT INK 0 ; P.T 5 : 9 ; ;: DEDIChT 
ED T0 !S 
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250 
270 
250 
Hint 
290 
o p p i n 
15 ; PT 
300 
310 
320 
330 
340 
L5 ; 
350 
350 
^ S 0 
350 


PRINT 

PRINT 

PRINT INK 0,PT 
on (The Bear)" 
PRINT INK 0;PT 
5 * PT 21,20; : 

21 ,1 ;“version ( 
5 ;20 
300 


10 .4 ; ,? Ka ty & 


15 

11 


17: ”G 

Ju Ly 


s H S T 

1953 


BEEP 
PAUSE 
€ L 5 
PR USE 
PAPER 
PAUSE 
FOR r = 
REM 
FOR c s 
PRINT 


10 
5 : 
20 
; 17 


INK O BORDER 5: C 


TO 


0 TO : 
PRPER 


:1 

4.; 


INK 4.; RT f ,C 


390 NEXT C 
4O0 NEXT f 
410 FOR r =11 TO 19 
420 FOR C =4 TO 7 

430 PRINT PT r , c PAPER 2.; INK 

440 NEXT c 

450 NEXT f 

450 FOR r=15 TO 19 

470 FOR C=5 TO 25 

450 PRINT PT r , c , PAPER 5; INK 


- 3 

490 

500 

510 

520 

y 17 
530 

0 

540 
550 
550 
570 
550 
590 
500 
1; 
NO¬ 


NE XT c 
NEXT r 
INK 5 

PLOT 32,57: DRPU 14,54: DRP 
, -54 

PLOT INK 5;54,71: DRPU 105, 

DRPU 32 :-21 
NEXT r 
INK 2 

FOR f =0 TO 20 STEP 2 
CIRCLE 151,120,r 
NEXT r 

PRINT INK 0. PAPER 7; FLASH 
BRIGHT 1;PT 17,11;“THE UEDDI 


610 

PRINT INK 

7,:PT 

19,5 


620 

POKE USR 

; P ;: r0 , BIN 

00011000 

630 

POKE USR 

11 P 1! 4 1 

, B IN 

00011000 

640 

POKE USR 

11 H : *f2 

..BIN 

01111110 

650 

POKE USR 

ll P ,: +3 

: BIN 

00011000 

6 5 0 

POKE USR 

1; P : +4 

-BIN 

00011000 

R 7 O 

POKE USR 

1: P ; 45 

: BIN 

00101000 

550 

POKE USR 

•'P 1S 45 

, BIN 

01000100 

590 

POKE USR 

i; P 47 

• BIN 

01000010 

700 

PRINT PAPER 5: 

INK 

0.: PT 19, 


r- 




710' 

SEEP 1,20 

l 



720 

PRINT PRPER 3; 

ODER 

1, PT 19 

27; 





730 

PAPER 5 




740 

FOR Z =25 

TO 2 

STEP 

-1 

750 

PRINT PT 

20,Z; 


BEEP 8 1 

7 50 

NEXT Z 




770 

PAPER 5 




750 

PAUSE 30 




790 

FOR Z = 15 

TO 10 

STEP 

-2 
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S00 

PRINT BP.1GMT 

l; 

PLR5H 1; PR 

PER 

7; INK 0;hT I 

, 2; “ 

•• • 

610 

NEXT Z 



* '■=. 

NEXT z 



630 

PRUSE 10 



640 

BEEP ,5.0: PAUSE 

2. BEEP =5 

: -10 




650 

PRUSE 200 



660 

PRINT INK 0: 

PRPER 7; BRIGH 

T l; 

RT 2,9.:" PRES 

5 & 

HOLD PNY KE 

670 

BEEP 1,25: PRUSE 

400: BEEP 

= 5:3 

0 



660 

IP INKEY $ = 

THEN GO TO 340 

690 

C LB- 



900 

PRINT INK 0; 

PRPER 7: BRIGH 

T 1; 

RT 12, 8 .; "re lease 

the KEY “ 

910 

BEEP i,30 



920 

& 

IF INKEY SO¬ 

“ THEN GO TO 59 

‘930 

CLE 



1020 

LE“ GREATEST 

= 0 


1070 

GO SUB 4050 

REh 

SIN IT 

1060 

PAPER 5: BORDER 

5: PRUSE 10 

1090 

PPPER 7: INK 

0 


1100 

PRINT RT 9,9 

“BEST MRN TEST 

1110 

BEEP =3,10 



1120 

PRUSE 100 



1130 

BEEP =3:15 



1140 

GO SUB 4050. 

REh 

5 IN IT 

1150 

GO SUB 3690: 

REh 

INSTNS 

1160 

GO SUB 4050 

REh 

5 IN IT 

1170 

GO SUB 3460: 

REh 

PICTURE 

1160 

LET GPP = 1 



1190 

GO SUB 3250 

REh 

HOLE 

1200 

L* ! GRP=2 



1210 

GO SUB 3250 

REh 

HOLE 

1220 

LET GPP=3 



1230 

GO SUB 3250: 

REN 

HOLE 

1240 

GO SUB I960 

REh 

PRESENTS 

1250 

PRINT PPPER 

5; INK 0;RT 0,7 

" BEST NRN TEST 



1250 

BEEP 1,40 



1270 

LET MhNR=1Q: 

LET 

MRNO =5 

1260 

PRINT PPPER 

6 ; INK 0;RT MRN 

R , HfiNC: " + " 



1290 

GO SUB 2250: 

REh 

RUN 


1300 IP £>FhD = I THEN GO TO 1520: 
REM 5INGLEPNT5 
1310 GO TO 1360 

1360 * * * * *DOUt?LilPN iS******** 

1370 PRINT RT 6:3; “CONGRPTULRTIO 
NS YOU NPDE IT" 

1360 PRU6E 200 

1390 FOP 5=-5 TO 20 STEP 2 

1400 SEEP =2:5 

1410 NEXT 5 

1420 LET S$ = " BONUS " 

1430 LET T0TRL=T0ThL*2 

1440 GO SUB 1790 REh SCOREBOfiRD 

1450 GO TO 1070 

1*20 Htli *******LOST********** 
1530 PRINT BRIGHT 1; PPPER 7 PL 
P5H 1; INK 4;PT 2,14;“POOR RLRN 

•I KRTY :: 

1540 BEEP 2,-5: BEEP 1,5: BEEP 2 
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1558 LET 5$ = : 1 N0 BONUS” 

1560 GO SUB 1790: REM SCOREBOARD 
1570 GO TO 1070 

1710 REM ++++++SUBR0UTINE3++++* 
1790 REM TrriSC0 REBOhRDttttttt 
IS00 GO SUB 4050: REM 5INIT 
IS10 PRINT BRIGHT 1 : PAPER 4;RT 
3,12;S$ 

1820 PRINT : PRINT : PRINT : PRI 
NT : PRINT : PRINT 

1830 PRINT AT 7,11;”YOUR SCORE=“ 
TOTAL: PRINT : PRINT : PRINT 
PRINT : PRINT : PRINT . PRINT 
1840 IF TOTAL<GREATEST THEN PRIN 
T PAPER 5.; BRIGHT 1; ”THE HIGHEST 
SCORE STANDS AT GREATEST: PRI 
NT PAPER 7;AT 20,9;” PRESS ANY K 
EY PAUSE 500: RETURN 
1850 IF TOTAL=GREATEST THEN PRIN 
T PLASH 1; BRIGHT 1; PAPER 4; IN 
K 7;“YOUR SCORE EQUALS THE GREAT 
EST": BEEP =5,30: PRINT PAPER 7; 

INK 0;AT 20,9;“ PRESS ANY KEY “ 

: PAUSE 500: RETURN 
I860 REM 
1870 REM 

1880 REM ttNEU LARGEST SCORE** 

1890 i_ET GREATEST =TOTAL 

1900 PRINT BRIGHT 1; PAPER 7; PL 

ASH 1 ;“YOU HAVE THE LARGEST 5C0R 

E TODAY”: BEEP .5,38: PRINT PAPE 

R 7;AT 28,9;“ PRESS ANY KEY “: P 

RUSE 508: RETURN 

19B0 RcM ******PRt.5trN i 5******* 

1978 LET N = 8 

1988 LET SHADE=2 

1998 LET ROW=5 

2808 GO SUB 2128 

2818 LET SHADE=1 

2828 LET RQU=18 

2838 GO SUB 2120 

2848 LET N=4 

2858 LET SHADE=2 

2868 LET R0U=15 

2878 GO SUB 2128 

2888 LET SHADE=1: LET N=5 

2098 LET ROW=15 

2188 GO SUB 2128 

2118 RETURN : REM TO MAIN PROG 

2128 POP: X = 1 TO N 

2138 LET COL = INT iRND*31) 

2148 LET PRE5R0U = R0W +1*INT (RND * 
3) +1 

2158 PRINT BRIGHT 1; PAPER SHADE 
.; INK SHADE; AT PRE5R0W , COL ; 

2168 NEXT X 
2178 RETURN 

2260 heM *******P:UN*********** 
2268 GO SUB 2448 REM GETKEY 
2278 GO SUB 3848: REM DRUNK 
2288 GO SUB 2598: REM RANGECHECK 
2298 IP RANGEOUT = 1 THEN GO TO 22 
58: REM RUN 

2388 GO SUB 2718: REM MOUEMAN 
2318 GO SUB 2328 REM HEDGEHIT 
2328 IP GOTPRES =1 THEN PRINT PAP 
ER 6.; INK 8; AT MANR , MANC ; “*“ : LE 
T GOTPRES=8 

2338 IP DERD=i THEN GO TO 2378 
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2340 IF UON=I THEN GO TO 2370 
2350 GO TO 2250: REM RUN 
2350 LET DERD=0 

2370 RETURN : REM TO MRIN PROG 
2440 KtM ±±****±GE !KtYTTTTTTTTT 
2450 LET UERT=0: LET HORZ=0 
2450 IF IN KEY $ = :: 1: THEN GO TO 245 
0 

2470 LET R$=INKEY$ 

2450 IF R $ = 5 : : THEN LET UERT=1 
2490 IF R$ = :i 7 :s THEN LET UERT = -i 
2500 IF R$ = ‘5 :l THEN LET HORZ=-l 
2510 IF R$ = ! * 5 : * THEN LET HORZ=l 
2520 RETURN 

2590 REM * * * S-fcRRNGECHECK* ****** 

2500 LET RRNGEOUT.=0 

2510 IF MhNO^HORZ <0 OR MRNC-fHORZ 

>31 THEN LET RRNGEOUT = 1 

2520 IF MRNR-rUERT >21 OR MRNR+UER 

T <S THEN LET RRNGEOUT = 1 

2530 RETURN 

2700 REM *****-r*MOUEMRN*±**±** + 
2710 PRINT PRRER 5; ONER 1;RT MR 
NR •. MRNC ; :: T 1! 

2720 LET MRNR =MRNR-rUERT: LET MRN 
C = M R NO 4 H 0 R Z 

2730 PRINT PRRER 5; INK 0;RT MRN 
R : MRNO ; :: t :: 

2740 BEER .08,0 
2750 RETURN 

2520 REM ******HEDGEHIT*****S* 
2530 LET UON=0: LET DERD =0: LET 
GOTPRE5=0 

2540 LET RRRERCOL =INT ( (RTTR (MR 
NR,MRNC 3 -1NT (RTTR (MRNR,MRNC3 /5 
43 t:D43 /S3 

2550 IF RRRERCOL=5 THEN GO TO 29 
30 REM YELLOW 

2550 IF PRPERCOL=4 THEN GO TO 29 
20: REM GREEN 

2570 IF RRRERCOL =2 THEN GO TO 29 
40: REM RED PRESENT 20 PNT5 
2550 IF RRRERCOL=1 THEN GO TO 29 
50: REM BLUE PRESENT 10 PNT5 
2590 IF RRRERCOL=7 THEN GO TO 29 
50 REM WHITE 

2900 LET DERD=99: REM OTHER COLO 
UR? 

2910 GO TO 2970 

2920 LET DERD = 1: GO TO 2970: REM 
YOUR DERD 

2930 LET DERD =0: GO TO 2970: REM 
YOUR 5TILL RLIUE 
2940 LET G0TPRE5=1: LET DERD=0: 
BEEP 1.30: LET TOTRL =TOTRL 420 *TI 
P5Y : PRINT PRRER 5 ; RT 21:0; "POIN 
T5 = :: ; TOTRL : GO TO 2970 
2950 LET GOTPRES=i: LET DERD=0: 
BEEP 1,30: LET TOTRL=TOTRL+104TI 
PSY: PRINT PRPER 5 ; RT 21,0; :s POIN 
T5 = :s ; TOTRL: GO TO 2970 
2950 LET DERD=0: LET UON=i 
2970 RETURN 

3040 HiiM 4 * * 4 4 * * * * 4 *DkUNK * * * 4 * * 
3050 LET R=INT (RND*I0) : REM 0 
TO 9 

3050 IF R <TIPSY THEN GO TO 3050 
3070 GO TO 3210: REM NOT DRUNK 
3050 LET 5TRGGERPLRNE = INT (RND*2 
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) -hi 

3090 IP 5TfiGG£RRLHNE=2 THEN GO T 

0 3150: REM HORZ PLRHE 

3100 LET WRY =INT (RND*2) +1 

3110 IP why =2 THEN GO TO 314.0 

3120 LET UERT=UERT-1 

3130 GO TO 3210 

3140 LET UERT=UERT41 

3150 GO TO 3210 

3150 LET UhY = I NT (RND*2) -hi 

3170 IP WHY=2 THEN GO TO 3200 

3150 LET HORZ=HORZ-hl 

3190 GO TO 3210 

3200 LET HORZ=HORZ-1 

3210 RETURN : REM BRCK TO RUN 

3250 hlM ****** ^tHOLE ******?: * * * 

3290 IP GRP = 1 THEN GO TO 3330 

3300 IP GRP=2 THEN GO TO 3350 

3310 LET ROW=5 

3320 GO TO 3350 

3330 LET ROW=15 

3340 GO TO 3350 

3350 LET ROW=10 

3350 FOR N = 1 TO 3: LET COL = INT ( 
RNDt(29)) 

3370 P RINT PRPER 5; INK 5;RT ROW 
COL; 

3350 PPItrr PRPER 6; INK 5; RT ROW 

-hi : COL-hi; 5 m 

3390 NEXT N 
3400 RETURN 

3450 REM ********PIC:TURE******* 
3470 RESTORE 3450 
3450 DRTR 15,10,5,99 
3490 RERD R 

3500 IP R=99 THEN GO TO 3570 
3510 FOR R=R TO R+l 
3520 FOR C=0 TO 31 

3530 PPItTT INK 4; PRPER 4; RT R,C 


3540 NEXT C 
3550 NEXT R 
3550 GO TO 3490 
3570 BORDER 4: 

3550 PRINT PRPER 3; INK 3RT 2,4 

. : : :: 

35 90 P RINT PAPER 3; INK 3; AT 3,4- 
n : : BRIGHT i.; FLASH i; PAPE 
7 ; INK 0.:“*“: PAPER 3; INK 3; ** 

3600 PLOT INK 5 ; 32,159 : DRAW 7 .. 1 
4: DRAW PAPER 3;7 , -13: DRAW 32,0 
: DRAW 7,-7 
3610 REH 

3520 PRINT PAPER 6; INK 0jAT 21, 
23 ; TIPSY.; “ DRINKS" 

3630 LET TOTAL=0: PRINT PAPER 5; 

AT 21,0.; “P0INT5 = ,! ; TOTAL 

3640 RETURN 

3690 Htii *-s**-»TiNSl 

3700 GO SUB 4050: REM 5INIT 

3710 PRINT PAPER 5; INK 0;AT 1,1 

0.; ‘'INSTRUCTIONS” 

3720 hRINi As 5,3;“You are the b 
est Man»“ 

3730 PR INI “Alan has to get to c 
hur ch . “ 


3740 PRINT “Otherwise KATY Will 
get“ ■' “cross wi th you , “ 
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3750 PRINT PT 10,1; 88 THE :: ; BR.lGh 
T It PPPER 4; :, RPRuU 15 ; BRIGHT 0; 
PAPER 6 : KEY5 5.6,7, &S CONTROL si 

3760 PRINT PT II, 1; ;: PLPN5 DIRECT 
ION 1 ' 


3770 PRINT 

3730 PRINT "However Plans had a 
Li 11 ie !S 


3790 

PR1HT 

"drink to 

cal® 

h i S 

ne 

r v e s 
3500 
3510 

s: 

'print 

PRTtaT 

" HO »■ IBUCh 

is UP 

to 

yo 


u 88 

3320 PRINT 0 to 10 DRINKS! ! ! ! :s 
: PRINT : PRINT 

3330 PRINT 11 GIUE H NUMBER 0-10 
FLP5H 1; "PRESS ENTER” 

3340 INPUT P$: BEEP ,2,30 
3350 FOR N=1 TO LEN P$ 

3360 LET DECODE P$ (N) 

3370 IF D<45 OR D >57 THEN GO TO 
3340 

3330 NEXT N 

3590 LET TIPSY=INT URL P$ 

3900 IF TIPSY<0 OR TIPSY>10 THEN 
GO TO 3340 

3910 GO SUB 4050: REM SINIT 
3920 PRINT PPPER 5; PT 4,12.; :: OT 
E 18 : PRINT : PRINT : PRINT INK 0 
; " P r e s e n t s are s h o w n o n r o u t e 88 '' '* 
PPPER 2; INK 7; BRIGHT 1; 88 RED I! ; 
PPPER 5; INK 0; BRIGHT 0; ,s scor 
es 20 tijr.es the DRINKS 88 
3930 PRINT : PRINT PPPER 5; BRIG 
HT l; !, BLUE !! ; BRIGhT 0; PPPER 5 
scores 10 times the DhINKS 88 
3940 PRINT : PRINT : PRINT : PRI 
NT BRIGhT 1 88 Oh u rch ar r i v a l 9 i v e 

S 900-" ** ’* 88 T + ^frrDUUdLi: HOI 

NTS***** 18 


3950 PRIrAT 
3960 PRXtTC 


PRINT 

PRltrr PPPER 7; FLPS 
H 1.; PT 21,6.; 88 PRESS PNY KEY 88 
3970 PPUSE 65000 
3930 BEEP ,3:40 
3990 PPUSE 40 
4000 RETURN 

4060 RizM ******5IN ±\+******±* 
4070 CLS : PPPER 6: INK 0: BGRDE 
R 6: CLS : RETURN 


9900 LET s =PEEK USR ,: u 88 +256*PEEK 
(USR 18 U 88 +1) : POKE s+1,1 

9901 LET x =s -r231S 

9902 LET a=s+99 

9903 GO SUB 9914: PRINT PT 21,0.; 

9905 RPNDOMIZE USR (PEEK USR :, u 88 
+25S*PEEK (USR 88 0 88 +1) 4101) 

9906 INPUT x: PRINT x 

9903 LET a=PEEK USR ss li 88 +256#PEEK 
(USR 88 u 88 *f 1) *f2 

9909 GO SUB 9914: GO TO 9905 

9911 INPUT Z$ 

9912 PRl?rC 8 , 8 8 8 8 1 8 ;z$; , 8 8 8 S!1! 

9913 GO TO 9905 

9914 POKE a+l,INT (x/256) 

9915 POKE a,x-256*INT (x/256) 

9916 RETURN 


Author: G. A. Topping 





The Towers of Hanoi 



This is a classic puzzle the object of which is to move 
golden discs from one pole to another. The discs are 
different sizes and at no time may a disc sit upon a smaller 
one. This program also provides the solution and 
presents it on the screen. 


10 kEM "HANOI". The towers of 
Hanoi . © R:H:DOUGHTY.24.6.84. 

12 PRINT PT 10,10: S! PLER5F Lip IT 
GO 5Ut? 7S0 : HtM Gene f a t e a r r a 
y for autonatic s oLut i o n = 

15 PRPEP 1 ; BORDER 1: INK 6 
IS DIM r (200; : REM array to st 
o r e to o v e s o f t h e m a n u a l *' s o L u i i 
on 

20 

21 DIM d i (8,5) : REM 51rin9 a r r 
a y of r sets o f sta nda r d gr aphic 
s : r epresen ting dis cs > + 1 bta nK 

s t r i n q : 

22 LET d$ 11) = : 

23 LET d$(2) = 

24 LET d $ 13) = 

25 LET d$ (4) = 

25 LET d* (5) = 

27 LET d $ (5) = 

25 LET d*(7)= 

29 LET dj( 3) = : 
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30 RESTORE 32: REM 2 graphics 
t o d r a ‘if the p o Les . 

31 FOR n =1 TO 2: RERD g 5: FOR 

f — 0 TO 7: RERD 3: POKE USR g $+f, 
a: NEXT f: NEXT n 

32 DRTR “ a “ ,9,9,15,15,9,9,15,1 
5 , b “ , 24-0,240,144,144,240,240,14 
4,144 

34 CL5 : PRINT RT 0,6.; “THE TOU 
ERS OF HRNQI”;AT 1,3.; “Long ago t 
he priests of the temple of Han 
oi were presen ted with 100 gold 
e n discs in d e s c e n-din g 0 r d e r 0 f 

size." 

35 PRINT RT 5,3;“Each had a ce 
n t r a l h ole for t h r e a d i n g 0 n t o o 
ne of three pol-es of ebony inse 
t ■» i t h s a p p h i r e s a n d set i n t h e t 
e mP l e floor.“ 

3 6 PRINT RT 9,3.; ‘' 51 a r ting w i t h 
alt the dis cs 0 n the fir s t p 0 l 
e , w i t h t h e s m a 11 e s t at t h e 

1 0 p, the p ries tswere charged w i t 
h t r a ns f e r ring 0 n e dis c e ach da 
y , w i t h the aim 0 f g e 11in g a11 t 
he d x s cs 0 n 1 0 the th i r d p -0 le . " 

37 PRINT RT 16,3;"The second p 
ole could be used as required fo 
r i n t e r m e d i a t e m 0 v e s , b u t n 0 d 
x sc mus t e v e r sit a bov e a s ma 11 e 
r 0 n e . ” 

33 PRINT RT 20,0;“PRESS ANY KE 

Y TO CONTINUE" 

39 PAUSE 0 . CLS 

40 PRINT RT 0,3;“Since the tot 
al n 0 . 0 f m 0 ves required f 0 r 1 00 

discs is in excess of 1 , 000 , 
000 , 000 , 000 , 000 , 000 , 000 , 000 , 000 , 
000,000 - the w 0 r fe is s ti 11 p r 
oceeding !“ 

42 PRINT RT 5,3;“This game red 
uc e s the no. 0 f disc s 1 0 7 whic h 
m a fee s t h e tot- a 1 n 0 . 0 f m 0 ve s 
127, and it does the heavy work 
0 f m 0 ving the g 0 ld discs to in 

s t r u c t i 0 n s . “ 

44 PRINT RT 12,3;“It wi l l eVen 
g i v e y 0 u a s 0 l u -1 i 0 n w h i l e y 0 u 
w a t c h , or r e p t a y Y 0 U k s 0 l u t i 0 n , 
c 0 mp le te wit h anymis ta fees ! “ 

46 PRINT RT 17,3;“PRESS ANY KE 

Y TO CONTINUE" 

48 PAUSE 0: CLS 

49 

50 

51 REM Demonstrate short cut m 
e t h 0 d . 

52 PRINT RT 10,0;“Of course - 

i f u 0 u 1,1 ere all 0 w e d 1 0 d 0 it l i fe 
e this, it would be easy!” 

54 PAUSE 208: CLS 

58 FOR n=10 TO 16: PRINT ■ PfiH 
ER 1; INK 0 ; RT n , 6; " S “; RT n , 15; 

tfi " ; AT n ,26; "S'; NEXT n 

59 FOR n =0 TO 31: PRINT RT 17, 

n; "■■“ next n 

60 FOR n=l TO 7: PRINT RT n+9, 
3;d $in) : NEXT n: PAUSE 10 
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52 FOR n =1 TO 7: PRINT RT n+9, 
3;d $ (s5 ;RT n + 9 s 5; PRPER 1; INK 0 
; :s s 45 : PRINT RT 17-n •. 13 = d $ (n ) : P 
RUSE 20: NEXT n: PRUSE 20 

54 FOR n =1 TO 7: PRINT RT n+S, 
13 ; d $ (8) •: RT n +9.15 ; PRPER 1INK 

O 11 3? 44 : PRINT RT 17-n , 23; d $ (8-n 
5: PRUSE 20: NEXT n: PRUSE 20 

55 PAUSE 150: CLS 

55 PkIN i R i 10 : 0 ; :s 5u t y o u r€ n 
O t -Th a t •' S CHERTING ! 84 : PRU5E 20O : 
C L 5 

70 PkINI “The fotLouing is the 
series of nun-hers which gives 
the auto»at-ic solution 84 : GO 5U t5 
590 

72 

75 CLS : PRINT RT 4,0; 84 You ha 
ve th ree op t ions- 88 R i 5,0; 48 15 
Rn a u t o«• a t i c s o lu t i ony o u j us 
t u a t c h 44 ; RT s , 0; “25 Yo u c a n m 
ove the discs for y ou r oun soLu t 
i o n . 48 fl! 10 , 0 44 3 5 Ha v i n g a ch i e 

v e d a m a n u a L s o l u t i o n y o u c a n 
r p p l a y i t c o m - pie t e u i t h a n y f a 
Ise moves. 44 

50 PRINT RT 14:0; 44 For 15 Key a 
and E\-TTER^;ffr 15 , 0 ; 88 For 2 5 Key 

m and ENTER 88 RT IS,©.; “For 35 Key 
r and tNTtR 44 

51 

55 INPUT m$ : CLS 

57 IF m$ = “m 48 THEN DIM f (2005 

90 IF » * <: > 48 m 88 RND m $ < > 44 a 84 AND 
rn $ < > 45 r 44 THEN GO TO 75 

95 

100 

110 HtM Print poles 
115 FOR n =10 TO 16 PRINT RT n, 
6; PRPER I ; INK 0 ; 84 if? 44 : NEXT n 
120 FOR n=10 TO 16: PRINT RT n, 
16; PRPER 1; INK 0 ; 44 S 48 : NEXT n 
125 FOR n=18 TO IS: PRINT RT n, 
26 ; PRPER 1; INK 0 ; 44 « ; NEXT n 

130 FOR n =0 TO 31: PRINT RT 17, 
n ; 44 a * 44 : NnXT n 
195 FOR n =10 TO 16 
200 PRINT RT n - 3;d$ (n-95 
205 NEXT n 

210 PRINT RT 2:7; 44 1“ ; RT 2,17; “2 

44 ; RT 2,27; 44 3 14 

hId PR J.N s R i 5,0; 44 Nu m be r 0 f m 0 v 
es 88 

hh 0 REM Let a, b, c, be the num 
bers of the current print lines 
0 f t h e top discs i n c o l s 1, 2 , 

3: respective ly . 

225 DIM a$(5:55. DIM b$(5:S5: D 
IM _ C $ (5,5 5 : 

230 REM Initialise contents of 
s t a c K s •: all disc s 0 n s tack a s 
235 FOR n =1 TO 8: LET a$(n5=d$( 
n5 : NEXT n 

235 FOR n =1 TO 5: LET b$(n5=d$( 
55 : NEXT n 

240 FOR n =1 TO 5: LET C$(n5=d$( 
55 : NEXT n 

242 LET a=10: LET b=17: LET C=1 
7: LET k = 0 . REM Initialise add re 
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sses o f top discs , and c o un ter, 

250 IF c=10 THEN GO TO 254 

251 GO TO 271 

254 BEEP .2:7: BEEP .5:12: 5EEP 
= 2,7: BEEP 1,12: INPUT ANOTHER 
GO ? y /n iv ENTER !S ; q $ 

255 IF g $ = !5 y 8 ‘ THEN GO TO 259 
257 IF q$ = Ti :s THEN CL5 : PRINT 

RT 10,4 : 88 0 , K ,-GOOD -BYE = " : : P 

RUBE 400: GO TO 34 
259 CL5 : GO TO 78 

271 IF fc$ = Si r 88 THEN GO TO 275 

272 IF m$ = 85 a 88 THEN GO TO 250 

2 /3 INhU i M i o m o v e d i s c , fc. e y th 
r o Hi *' a n d ' t n n u '& be r s , a n d E 
NTtw togeth-er, To return to men 
u, Key y and tNTEH* 1 ; p 

274 IF (p<>12 RND p < >13 RND p< > 
21 RND P <>23 RND p<>31 RND p<>32 

RND p < >9) THEN GO TO 273 

275 LET K. = fc. 41: LET r C K ) =p : GO T 
0 254 


275 LET K = k. +1 ; LET p = r ( K ) : 

277 IF K =1 RND P=0 THEN GO TO 3 
55 


275 GO TO 254 
279 STOP 


250 LET k=k+i: LET p =.w UO 
254 PRINT RT 5..15;K: GO TO 400 
350 PRINT RT 5.0; FLR5H 1; !: RTTE 
MPT TO CHERT COUNTS 1 MOUE ;: 

355 PPU5E 120: PRINT RT 5,0; 88 

: • 


360 GO TO 271 

36u k tM No so vss-no rep Lay s u b r 
out. in a from 277 

366 PRINT RT 5,0.; "NO M0UE5 YET- 
50 NO REPLRYI” 

367 PAUSE 120: CLS : GO TO 78 
350 

355 

3S 0 REM Rou tine for mo ving d i sc 

'100 IF p =12 THEN LET X ==: LET y 
= b LET S f=3: LET pf=6: LET st =1 
3: LET p t =16: LET X $ =3 $(a-9) : LE 
T y $ = b $ i b-9) : GO SUB 500: LET 3 = 
: LET b = y: LET b$ ( b -Q> =y$ 

4-10 IF p =13 THEN LET x =a : LET y 
=C: LET sf=3: LET pf=6; LET st=2 
3: LET pt =25: LET x $=3 $ i 3-9 ) : LE 
T y|=C$(C-9): GO SUB 580: LET 3= 
X : Lb ! C =M: Lt ! C $( C -9) =4 $ 

420 IF p =21 THEN LET X =b: LET 4 
= 3: LET s f =13: LET Pf=15: LET St 
= 3: LET p t =6: LET X$ = b$(b-9): LE 
T y 3=3 3 i5-9) GO SUB 580: LET b = 
X: LET 3=4: LET 3$ (3-9) =4$ 

430 IF p =23 THEN LET X =b : LET 4 
= C: LET S f =13: LET Pf=16: LET St 
=23: LET p t =26: LET X 3 = b3(b-9) : 
LET y3=03’C-9): GO SUB 583: LET 
b = X : LbT c= y: LET c$(c-9)=y$ 

443 IF p =31 THEN LET X =0: LET y 
= 3: LET S f=23: LET Pf=26 : LET St 
= 3: Lt. i p t =6 : LB i X$ = C$ : Lb 

T y3=a3t3-9): GO SUB 588: LET 0= 
x: LbT a =y: Lbi 3 3(a-9) =43 
458 IF p =32 THEN LET x =c: LET y 
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= b : LET S f =23: LET pf= 25: Liz! St 
= 13: LET P t =16: LET X$ = C$(C-9) : 
LET 4$=b$Cb-9): GO SUE 500: LET 
C= %: LET b= y: LET b$(b-9) = y $ 

450 IF P=9 THEN GO TO 34 
470 IF p — 0> THEN GO TO 34 
450 GO TO 250 

500 IF '4 >15 THEN GO TO 530 
510 IF x >15 THEN GO TO 271 
520 IF x*>y* THEN GO TO 350: RE 


il Cheat routine 
530 LET t*=X$ 

550 PRINT RT X,sf;d$ <5) 
t>60 LtlT X = X 4 1 

570 FOR n=x-1 TO 10 STEP -1 
550 PRINT HT n,sf;t$ 

590 PRU5E 2 

500 PRINT hT n , s f;d $ ( r) 

510 PRINT PIT n,pf ; PhPER 1; INK 

0 : - S " 

520 NEXT n 

530 FOR n =s f TO st STEP ((st>sf 


) - (S t < S f ) ) 


540 PRINT hT 9:n; t $ 
550 PRUSE 2 
550 PRINT HT 9,n;d$(5) 
570 NEXT n 


550 FOR n =10 
590 PPI^rr hT 
700 PRUSE 2 
710 PRINT RT 
720 PRINT RT 
0: ■■ jfi •• 


TO y-2 
n , £ t t $ 

n , s td $ (5) 
n , p tP hPER 1; 


730 NEXT n 

740 PRINT PIT 4-1 , st ; t$ 

750 LET 4=4-1 
750 LET 4 5 = t $ 

770 RETURN 

750 DIM w(127): REM Generate 


INK 


n u 


m be r a r r a y f o r *' a u t o m a t i c '' s o L u t 
i o n * 


790 DRTP: 13 : 12 : 32 s 13,21,23,13 
500 RESTORE 790: FOR n=l TO 7 
READ W (n .* : NEXT n 


810 FOR C =1 TO 7: LET K=0: 

S 15 LET i=INT (w(0/10): LET j= 
W C C ) — 10 •+■ i 
SIS FOR r =0 TO 15 
S20 LET w (c 454 r >=10 4 (i-K) 4 j-K 
525 LET K. = K 41 

530 IF i-K =0 THEN LET i=i43: 

532 IF J — K = 0 THEN LET j=j'+3 

535 NEXT r: NEXT C 

540 FOR n =0 TO 14 

b50 Ltl y(S4S*n)=w(2*h42): NtXi 


n 

550 RETURN 

570 HtM p r i n t ou t n un? be r a r r a y 
f o r a u t o »■ ati c so L u t i o n = 

590 PPIvrr : FOR P=1 TO 127: PRI 
NT in) “ : : NEXT P 

900 hkIN ! hi 21, 0 ; ! >'ress any Ke 
4 to continue 15 
910 PRUSE 0: 0L5 : RETURN 


Author: R. H. Doughty 


The Worm’s Progress 



Length in inches 


One day, a little worm called Vernon was out for a crawl. 
He found a pipe and, out of curiosity, crawled through it. 
Out of curiosity, you time him from the moment his nose 
first entered the pipe to the moment his tail left it. Then 
you measured the pipe. After asking Vernon how fast he 
was crawling, you were able to tell how long a worm he 
was. Well, weren’t you?... 


1L H tl M 

2 REM 

3 REM WORM 

4 REM 

'-I- Ht M + + ± + + + 

5 REM 

100 Dili rn $ £30 ) 

210 RANDOMIZE 

295 GO TO 1000 

300 REM t-- r Message ** 

310 PRINT AT 20.1.: BRIGHT 1; PL 
ASH 1; PAPER 5; INK 0; 81$ 

320 GO SUE 400 

330 IP INKEY $ <,> U i! THEN GO TO 33 

0 

335 LET K $ = INKEY $: IP = THE 
N GO TO 335 

337 IP fc$ > = ’ : H AND K $ \ = !! Z :! THEN 
LET K$=CHA5 £CODE (K5) -321 
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340 PRINT PT 20,1.;“ 


345 RETURN 

350 RtM ** xnstruction *4 
360 PRINT AT 20,1, BRIGHT 1; PR 
PER 6; INK 0;ffi$ 

355 RETURN 

400 RjiM 4 4 Kips 4 4 

410 FOR i=1 TO 2 

420 BEEP 0,05,50 PRUSE 2 

430 NEXT i 

445 RETURN 

450 Htii 4* Draw border 4* 

460 PRINT RT 0,0;“?“: FOR i=1 T 
0 20; PRINT RT i , 0 ; : NEXT i 

465 PRINT RT 21,0;“fe": FOR i=1 
TO 30: PRINT RT 21,i;: NEXT x 
470 PRINT RT 21.31; “J 1 FOR i =2 
0 TO 1 STEP -1: PRINT RT i,31;“| 
"; NEXT i 

475 PRINT RT 0.31; =§” : FOR i =30 
TO 1 STEP -1; PRINT RT 0 . i ; 

NEXT i 
435 RETURN 

500 helM 44 raspberry 44 
513 BEEP 1,16: BEEP 1,12 
520 BEEP .5,25: FOR X=23 TO 17 
STEP -0.5: BEEP .1 , X: PRUSE 2: N 
EXT X 


545 RETURN 


550 wEM 44 Congratulati 0 ns 44 
555 RESTORE 570 

560 READ P. , P : BEEP n 40.25, p : IF 
n >0 THEN GO TO 550 


570 DRTR 

5 : 3LH 

572 DATA 
5 14 

574 DRTR 
0.5,19 
576 DRTR 
14,1,15 : 3 
550 DhTh 


1 , 12 , 1 , 14 , 1 , 16 , 2 , 17 \: 2 , 
1,17,1,15,1,17,2,19,2, 

1.14.1.15.1.17.1. -5,21, 

1.19.1.17.1.17.1.16.1, 
17 

0,0 


595 RETURN 

699 REN 

700 REN -r t DO U b L e bfi fiP -r * 


701 REN 

710 BEEP .1,12: PAUSE 10: BEEP 
.1,15: PAUSE 5 


790 RETURN 


999 REN 

1000 REN ** Sh o w i n s t r u c t i o n s 

1001 REN 

1040 BORDER 5: PAPER 6 INK 0: C 
L5 

1050 RESTORE 5000 
1050 PRINT RT 2:0: 

1070 READ i$: IF i$(l) = S! © !! THEN 

GO TO 1200 

1050 PRINT is 

1090 GO SUB 700 

1100 GO TO 1070 

1200 Ll ; m$ = i: Press Key to see Ue 
rnon.. s : GO SUB 300 
1999 REN 

8000 REN -r7 t Generate puzzle ** 

2001 REN 

2050 RANDOMIZE 

2120 LET l $ =541 NT (RNDr-45) 
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21-30 LET in=5r ■ iflNT (AND*6) ) 
2170 LET tff< =58-r 12* (I NT (RND*48) ) 
2180 LtiT L p = (i n * t m /68) - L y 
2190 IP Ip < = 8 THEN GO TO 2128 
2999 REM 

3888 RtM ** Display puzzle ** 
3881 REM 

3858 CL5 : GO SUE 458 


3868 PRINT RT 

' 2,2, 

RRPER 

7, ' 

UER 

NON-5 LITTLE 
3188 RESTORE 
3118 FOR 2=8 

URLK 
5208 
TO 7: 

READ 

by te 

PO 

KE U5R a : 1 r 2 

by te : 

NEXT 

i 


3128 FOR 2=8 

TO 7; 

RERD 

by te : 

; PO 

KE USR 11 b 11 -ri : 

by te 

NEXT 

i 


3138 FOR 2=8 

TO 7: 

POKE 

USR : 

'• C : : * 


i,127: NEXT 2 
3158 DIM a*(18) 

3158 LET b$ = ;: 

3178 LET C 5 = 11 
3188 LET d 5 = - : 

3288 RRINT RT 

3218 PRltrr RT 18 11; - - 

3228 PRINT RT 4,11; !: :: ;Lp; :: ins 

3258 INK I + INT <RN0*4) 

3388 DIM m $(38;: PRINT RT 7,1:m $ 
RT 8 ,1; $ 

3385 FDR 2=12 TO 28- PRINT RT i, 

1; 8*5: NEXT 2 

3318 PRINT RT 5,l;b$ 

3328 PRINT RT 7:1; ” <-?-> 51 

3338 RRU5E 258 

3348 PRINT RT 15 1 FLR5H 1; PRP 

Eh 3 : INK 8 M 5peed is 55 i n ; t! in 

ches per hour 11 

3358 FOR c =1 TO 28 

3368 PRltrc RT 8 : c ; d $; RT 7 , c ; c $ 

3365 BEEP .1,12: PAUSE 18 

3378 PRINT RT 8 . C +1; b$;RT 7,C +1; 

a $ 

3375 BEEP .1,16: PAUSE 18 
3398 NEXT c 

3418 Ll! h 0 U fs=INT (t&/ 68 ) 

3428 Lt! m n = ta-h 0 u r s *58 

3438 Liz! h 5 = ;t hour : IF hours:! 

THEN LET h$ = i! hours 1S 
3448 PRINT RT 15:1; RRPER 5; INK 
8. 11 

3458 PRINT RT 15,1; RRPER 5; INK 
8, : : r i »• e y a s 11 ; h 0 u r s ; h $ ; 

3455 IF sm>0 THEN PRINT PRPEP 5; 

INK 8 .; m n; 11 n- i n u t e s 11 
388 Lb! n- $ = ** Press ENTtw to answ 
e r : = : GO SUB 358 

3688 PAUSE 258: IF INKEY 5 = 1111 THE 
N GO TO 3388 
3988 INK 8 
3999 REM 

4888 HtM 77 Get answer ** 

4881 REM 

48b:*8 INPU1 11 Length in inches ? !i 
; LINE r $ 

4858 IF r $ = s ‘ 11 THEN GO TO 4858 
4878 LET 0 k=1 

4858 FOR 2=1 TO LEN r$: IF r$(i) 
< 11 8OR r 5 (i ) > 11 9 :: THEN LET 0 K = 8 
4898 NEXT 2 
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4100 IP o k =8 THEN GO TO 4050 
4li.y Lti answer=U hL r$ 

4160 LET OK=0 

4170 IP answer=tw then let ok-l 

4499 REM 

4&00 Htli ** Check answer ** 

4501 REM 

4550 IP OK. =0 THEN LET »$="NO ! U 

ernon is very offended i“: GO 5U 
B 350: GO SUB 500: PRUSE 0 
4570 IP oK =1 THEN LET is$ = "Yes - 
'Thank you!' says ye rnon": Gu SU 
B_350: GO SUB 550: PRUSE 0 
4580 Lb! a $ = “ Do y o u w ant a n o t h e r 
90 7“: GO SUB 300 
4590 IP K $ < ;• “ y “ THEN PRPER 7: IN 
K 0: CL5 : GO TO 9999 

4500 IP 0 K =0 THEN GO TO 3008 
4618 IP o k =1 THEN GO TO 2888 
7999 REM 

8880 REM *4 ms t r u c t i o n data * * 

8881 REM 

8818 DRTR " THE WORM'S PROGR 


ESS" .= “ " 
8028 DRTR 
Si c a L t e d " 


‘One day., 


a L i 11 L e w o r 


8838 DRT R "U e rnon w a s o ut f or a 

walk.! er ” 

8w4w DRTR “crawl. He found a pi 
pe and" 

8058 DATR “out of cu riosit y , era 
w l e d “ 


8868 DR iR "through it. Out of c 
uriosity., “ 

8 8 ? 8 D RT R " y o u t i a e d hi m f r o a t h 
e uoBent” 


8888 uRTR “his nose entered the 
pipe to the" 

8893 DRTfi “ m o m e n t his t a i L l e f t 
it. i hen “ 


8188 DRTR 
= After " 
8118 DRTR 
t he was" 
8128 DRTR 
le to tell 
8138 DRTR 

s: : s :: 


‘you measured the pipe 

‘asking U e r n o n h o w f a s 

‘era wting, y ou were ab 
: 

1 h o w L o n g a w o r a h e w a 


8148 DR ! fi "We L t , we ren t you •?“ 
8198 DRTR “©" 

8288 REM ** UDG data 

8218 DRTR 248 252,238,255,191,19 

2 252,248 

8228 DRTR 13,7,31,15 7,3,1 
8990 GO TO 9999 

9888 INPU! "rite to save ? “ Li 
NE f $ 

y81ei SRUb *“!s"jl.; f $ 

9828 GO TO 9999 

91y8 INPU! "rite to erase ? L 
INE f $ 

9118 ERASE “a";1; f$ 

9128 GO TO 9999 

9288 PAPER 7: INK 8: CLS : GO TO 
939A 


Author: A. Gladwell 



Martians 



Nuaber or leaves *1 


Here is a little fantasy about life on Mars. There is a small 
population of little bug-eyed monsters, living on cactus 
leaves. Our scientists have observed how many little 
monsters there are, how many leaves are eaten altogether 
in a day and how many leaves a female eats per day. Can 
you work out how many leaves a male eats each day? By 
the way, some of the monsters are hibernating. We can 
also tell you that the total number of leaves eaten by 
females is equal to that eaten by males. 


1 RtM ±**************±****** 

2 REM 

3 REM MARTIANS 

4 REM 

5 REM ********************** 

6 REM 

100 DIM (30) 

210 RANDOMIZE 

295 GO TO 1000 

300 REM ** Message ** 

310 RRINT AT 20.1; BRIGHT 1.; PL 
ASH 1; PAPER 5; INK O;ia$ 

320 GO SUE 400 

330 IF INKEYS \ >■ v::: THEN GO TO 33 

0 
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335 LET k $ = INKEY $ IF k $ = :: thf 
N GO TO 335 

337 IF *.$>= ;t iR 4S RND k$;= t: Z :: THEN 
LET k ^ = CHR $ ( CODE ( k $ ; -32 ) 

340 PRINT R7 20 I : ;; 


345 RETURN 

3^0 RlM ** Instruction ** 

350 PRINT RT 20:1: BRIGHT I PR 
PER 5; INK 0; m% 

395 RETURN 

400 HtM ** Pips 4* 

410 FOR i=l TO 2 
420 BEEP 0.05:50: PRU5E 2 
430 NEXT i 
445 RETURN 

450 hlM ** Dray border ** 

450 PRINT RT 0 , O ; 1! p FOR i =1 T 
0 20 : PRINT RT i . 0; | J! : NEXT i 
455 9RI?-rr RT 21:0; FOR i =1 

TO 30: PRINT RT 21,i; : = NEXT i 
470 PRINT RT 21:31; J FOR i =2 
0 TO 1 STEP -1: PRINT RT i ..31; : I 
: NEXT i 

475 PRINT RT 0,31; iS T* FOR i =30 
TO 1 STEP -1: PRINT RT 0 , i; * 

NEXT i 
495 RETURN 

500 REM ** waspbarry + * 

510 BEEP 1:15. BEEP 1=12 
520 BEEP ,5.25: FOR x =23 TO 17 
STEP -0.5 : BEEP . 1 , X : PRU5E 2 N 
EXT X 

545 RETuPM 

5t*0 HtM ±4 Conqratu tations a-* 
555 RESTORE 570 

550 RERD n.p: BEEP n *0,25,P IB 

n >0 THEN GO TO 550 

570 DRTR 1 , 12,1,14,1,15,2,17 ... 2 . 

w’ : la 

572 DRTR 1,17: 1,15,1 
5 : 14 

574 DRTR 1,14,1:15,1 
0=5.19 

575 DRTR 1,19,1:17,1 
14:1. 15,3,17 

550 DRTR 0,0 


17,2. 
17,1: 


19,2 : 

5,21, 


IT , 1 , IF, ; 1 , 


595 RETURN 
999 REM 

1000 hEM * * 5h o w i ns t r u c t i o n s 

1001 REM 

1050 RESTORE 8O00 

1050 BORDER 7: PRPER 7 INK 2: C 

1070 PRINT RT 1:0; 

1050 RERD i$: IF i$Cl)= :: *) :! THEN 
GO TO 1200 
1100 PRINT 1$ 

1110 BEER 5 02 • -20 BEEP =02,-25 
1120 GO_TO 1050 

1200 LlI rn$ = ■•Kress any key to co 

n 1 1 nue = = :s 

1210 GO SUB 300 

1999 REM 

2000 hum ** Generate Puzzle 

2001 REM 

2050 RRNDOMIIE 
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2070 LET n®=3+IN~ (P.ND*13) 
2030 LET n f =3*INT i RND*13) 
2035 IP nf=nu THEN GO TO 2030 
2030 i_ET f® =2 + INT (PND*11) 
2100 i_ET f f =2 + INT (PNC'*11) 
2110 IF f f = f® THEN GO TO 2100 
2130 LET ffi1=3+INT (RND*5) 

2150 Lr i p®=ffll*nf * f rft 
2150 LRj_ p f =® 1* ? f *n® 

2 1 ,'0 i_R i p 0 p =p ® +P f 

2130 LET leaves=2*pft*na/fa 

2999 REM 


3000 kEM ** Display puzzle ** 

3001 REM 

3050 BORDER 5: PPPER 7 INK 0: 3 


L5 : GO SUB 450 

3070 print RT 2.2' PPPER 5;" MP.R 
TIPN5 ” 

SOSO RESTORE 3200 


3100 FOR i=0 TO REPD 
KE USR : ' a s ' +1 ; byl£: NEXT 
3110 FOR i =0 TO 7 REPD 
KE USR “fe“+i , byte• NEXT 
3150 LET 3 5 = ' =- LET 

(17) +CHR $ ( 8 ) + " tCHk $ 


PO 


RO 


by te 

i 

by te 

i 

b$=CHR* 
i 18) +CHR$ 


(1 ‘ -K «¥ 

3160 LET C $ = “•** LET d$=CHR$ 

(17) +CHh$ ( 8 )+” *' +CHh$ ' 18- tCHh 5 
(1) +• »» ; -rOHR$ (18) +CHR $ (0) + ” 

3200 LET ffi$= 'Press ENTER to try 


your answer" 

3205 GO SUB 350 

3210 PRINT RT 14 1; PAPER 6 ; "Tot 


al p o p u la 11on is ’, p o p 
3220 PRINT RT 15., 1; PAPER 5 ; Lea 
v e s eats n bo a f e a ale is " n f 
3225 PRINT RT 15 1; PAPER 4; INK 
9 ; "1 / *'; f a : " o f ® a t e s a r e a w a K e " 
3230 PRINT RT 17.1 PAPER 3.; INK 
9.; “ 1 / "f f.; " o f females are a w a K 


3240 PRINT RT 18,1PAPER 2INK 
9' To la l ie a ves eaten i s ; leav 


e s 


3300 

LET 

1=4 



3310 

FOR 

i=1 TO 7 



3320 

LET 

ten =1*(i-1 )*l 



3330 

LET 

Start=14-INT (ie n/2 

J 


3340 

PRINT RT l , s t a r tRARER 

4 

■ 



st ( i O ten ) 



3350 

LET 

1 = 14-1 



3350 

NEXT i 



•_1 ; _J 70 

PR INT RT 11,14; * 1 ", PT 1 

£ _• 

14 

1” 

3400 

REM 

* * Insect aove me nt 

4* 7T 


3410 

LET 

d i r = 1 



3420 

LET 

1=1: LET 1=4 



3430 

LET 

ten =1+(i-1)*2 



344-0 

i_ET 

st ar t =14-INi (le n/2 

> - 

4 

3450 

LET 

end=start + ten +4 



3470 

I F 

di r <0 THEN LET teffip = 

s f 

a r 

t : LET s 

tart=end: Lr: end=te 

?ftP 



3500 LET ,i=start 

3510 IF dir >0 THEN PRINT RT t, j, 
a 5 : RT l +1, j b $ 

3520 IF dir 10 THEN PRINT RT l , j : 
c $PT l +1, j d $ 
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3530 IP INKEY $ ;• ** 88 THEN GO TO 4-00 
0 

3535 BEEP ,02,-20: BEEP ,02,-25: 
PAUSE IS 


3540 

LET j = 

j-rdir: IP joend THEN 

GO TO 3510 


3550 

PR I NT 

AT L,l ; : '• 

3550 

PRINT 

AT L +1,1j PAPER 5 ! 

3500 

LET di 

r = - d i r 

3510 

LET L = 

L+l: LET i=i+l 

3520 

IP i < = 

7 THEN GO TO 3430 

3 6 50 

GO TO 

3300 

3999 

REM 


4000 

REM ** 

Get answer 

4001 

REM 


401 0 

INPUT 

‘‘Number of Leaves 

■ LINE 


4050 

IP r $ = 

8,88 THEN GO TO 4050 

4055 

LET OK. 

= 1 

4070 

PGR i s 

1 TO LEN r $ 

4050 

IP r $ ( 

i } < * 0 OR r $ i i ) >•** 9 !! ! 


HEN LET oK=0 
4090 NEXT i 

4100 IP o K =0 THEN GO TO 4050 
4150 LET answer=UAL r$ 

4150 LET oK. =0 

41 0 IP a n s w e r =n n•; THEN LiT o K. = 1 

4499 REM 

45©0 Htfi ChecK. answer s* 

4501 REM 

4550 IP OK. =0 THEN LET m$ = * 8 Y0U at 
e too an m *4 our s e L f i GO SUB 35 

0: GO SUB 500: PAUSE 0 
4570 IP o K =1 THEN LET ft} $ = :: P i g h t j 

Yo u •' r 8 o n t h 8 n 8 x t trip!” : GO S 

UB 350: GO SUB 550 PAUSE © 

4.i>S0 Li! n« $ = '•'• Do you want another 
try ?'*'* : GO SUB 308 
4590 IP K. $ <: > ,8 y" THEN PAPER 7 IN 
K 0: CLS : GO TO 9999 

4500 IF o K. =0 THEN GO TO 3000 

4510 IP oK =1 THEN GO TO 2000 

7999 REM 

5000 REM ** Instruction data ** 

5001 REM 

5010 CATP 88 MARTIANS 88 , 

5020 DAT A 1 Here is a L i 11 18 fa n t 
a s y about'* 

5030 DATA •'•Life on Mars, There 
is a 

5040 DAT A •'• s ft- a L L p o p u L a t i o n o f L 
i 11 Le ,s 

5050 DAT A '•'• hu g -e y e d m o n s t e r s L i 
ving on 55 

8050 DAT A ■* c a c t u s L e a v e s , Ou r s 
c i en t i s t s s: 

8070 DATA ''have observed how man 
y L i 11 le :s 

5050 DATA **monsters there are., h 
ow many** 

5090 DATA ‘Leaves are eaten at to 
gether in'* 

5100 DATA 85 a day and how many Le 
aves a “ 
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8110 DATA “female eats per day. 
Can you” 

S12 0 D RT A ‘' w o r K o u t h o sis m a n y l e a 
ves a mate” 

8130 l>hTh “eats- per day? 

3140 CRTS “By the waysome of t 
he monsters" 

8150 DATA "are hibernating. We 
can also" 

8160 DATA "tell you that the tot 
a l number" 

8170 DATA “of leaves eaten by fe 
males is " 

8180 DATA "equal to that eaten b 
m males,"' 

8190 DATA 

8280 REM ** UDG data ** 

8210 DRTR 102,255,153,153,25s,37 
.125,60 

8220 DhTh 204 204,204 204 204,20 

4,204,204 

8990 GO TO 9999 

9000 INPUT "rile to save ? Li 
NE f $ 

9010 SPUE *"» " ; 1.; f $ 

9020 GO TO 9999 

9100 INPUT "Pile to erase ? L 

INE f $ 

9110 ERASE "m“;l;f $ 

9120 GO TO 9999 

9200 PAPER 7: INK 0: CL5 : GO l0 

9999 


Author: S. Hall 


Jet man 



An arcade game which has some splendid graphics. The 
object is to steal fuel cubes and then drop them on the 
nose of your rocket ship. When the ship is full it will 
launch. Unfortunately, at the same time you must avoid 
the dreaded Morf and ever-growing columns of anti¬ 
matter ... but use your laser effectively and you could win. 
Controls: “1” left; “2” right; “0” up; “O” laser. 


I REM “JETMRN" © U-.H.Jones 19 

54 

4 LET hs=203 

5 LET man=3: LET 1=23. LET sc 
= 3 LET 0 S C = 3 

13 LET a$ = “|s LET = - f 
£0 LET C $ = “£“ : LET d$ = ‘^ 

21 LET = 

3 3 it! r 0 ill =19: L t! 0 r o ttf =19 

31 Lt' CO 1=25: Lt! 0 CO 1=26 

32 Lt; mro«=15: Lt! o»row=lt 

3 3 L11 ffi C 0 t = 0 : L11 0 St C 0 1=0 

43 DIM h(10i: DIM P(10) 

53 LET d =3: LE“ n=0 
53 LET V b = 5 : LET ftj =3 : LET c =3 
_55 BORDER 3: PAPER 3 INK 7: 0 

73 GO SUB 6000 
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204-5 IP irow = ro s.m PND mco L = co t > H 
EN 90 SUB 3540 

2046 IP arow=row+l PND aco t =co t 
THEN GO SUB 3540 

2047 IP fu PND arow=rom+2 PND me 
0 l = C 0 L THEN 90 SUB 3540 

2048 IP C THEN 90 TO £050 _ _ 

£050 PRINT OUER i.: INK 6 .; BHlGH! 

1; PT o m r o w , o m c o L_ _ _ 

2060 PRINT OUER 1INK 5> BHlGHi 
1: PT m row , m co L 

2070 LET o m r ow=mrow: Le i om co•=m 
c o t 

£080 Liz i C =0 
2830 RETU RN 
3800 REM 

3010 ±M L =0 ! HeN ReTUhn 

3030 PLOT OUER I 0 C 0 l *8 170 - (0 r 0 

w * 8 ) 

3048 IP d THEN GO TO 3100_ 

3 0 fi 0 DRPU 0UER 1; lNK 6BRIbM ! _ 
1 : - (o c 0 L * 8 ) ,0: BEEP .01,40: PLOi 
0 U E P 1;0co1*8.170-i0r0W*8 ) : DRP 
U OUER 1; INK 5; BRIGHT 1;-(OCOl 

* 8 ) :0 __ _ 

0070 FOR f = (OCO1-13 •o 0 SiEH -1 

3080 IP SCREENS (orow , f) <>" “ iH 
EN 90 SUB 3500: LET f=0 
3030 NEXT f 

3180 IP NOT d THEN GO TO 3148 
3110 DRPU 0UER 1 INK 5BRIGHl 
1 : 255 - ( 0 C 0 L t 8 1 •. 8 : SEEH . 0 1,48 : P 
L OT 0 UER 1 ;0 c o 1*8,170-C 0 r ow* 3)_ 

DRPU 0UER 1INK 5EH 19HI 12E5 

-(o CO L* 8 ) , 8 

3120 POR f= ( 0 C 0 l +1) 1 0 31 

3138 IP SCREENS < 0 r 0 w , f3 < “ lH 

EN GO SUB 3588: LET f =31 
3148 NEXT f 

0145 LET i. = 1.-1: IP L <8 ! HEN LE! 

L =0 

3158 PRINT PPPER 2; INK /J BKlGH 
T 1; PT 1,17; L; “ *’ 

3150 RETURN 

3588 REM -J— f w-fedfea4 

3510 POR Q=1 TO 5: PRINi ; INK ( 
7-q ) ; BRIGHT 1; PT o r ow , f £ S < 3 ) ■ 
BEEP .85 , g *18: NEXT g 
3528 IP orow=m row PND f=m co L_i me 
N LET m C 0 l= 8 : LET 0 ffi C 0 L= 8 . HHINi 
OUER 1; INK 4; BRIGHT 1;Hi Offiro 
« . oiii co t 

3538 RETURN__ 

3540 REM 

3550 FOR f =1 TO 5: PRINT > XNK C 
7- n BRIGHT 1 PT row , c 0 Le S «f) i 
h ! r o w +1 ■ c o Ls S (f) : if f u ! HeN P 
RINT PT row+2 , Co l£ S i f) 

3558 BEEP .01,f: BEEP .82,f*3 
3565 NEXT f 

3578 LET row=19: LET CO 1*2/: Lti 
f U =8 

3588 LET C =1 

3585 PRINT PT o»ro», 0 «C 0 ti: 4 

ET oa r o= 18 : LET a r ow =18; Le i oa 
cot= 8 : Le i moot=0 

3 5 5 7 P RI NT 0 UER 1PT a f 0 W , a €0 t J ** 
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110 
120 
ANY 
130 
140 
150 
1000 
1005 
1010 
1020 
1030 
1040 
3000 
1050 
10 9 Q 

1500 

1510 

I = r fi i 

1520 

i. = r - i 

1530 
hi = r o h! 


GO SUB 5000 

PRINT TAB 5; FLASH 1; ''PRESS 
KEY TO START" 

IF INKEYS=” THEN GO TO 130 
C L S 

GO S UB 9100 

REM _ 

Lt i n=n-fl 
GO SUB 1500 
GO SUB 2000 
GO SUB 1500 

IF IN 57342=189 THEN GO SUB 


IF 


•b THEN GO SUB 4000 


GO T O 1000 

REM sBEEE 

If IN 53486=190 THEN LET 
-1: LET d =0 

IF IN 53486=189 THEN LET 
+ 1: LET d =1 

IF IN 61438=190 THEN LET 


154 0 Lt ’ row = ro m.i t 1 
1*4S IF CO L <0 THEN LET cot=0 
1546 IF col>29 THEN LET cot=29 
1*47 IF ro»<3 THEN LET row=3 
1*48 IF row >19 THEN LET row=19 
1*50 IF orow=19 AND ocot=l THEN 
Lt i fU=1: BEEP =01.7: BEEP =01,6 
: BttR =01,5: BEEP =01,15: BEEP 
=02,11_ BEEP =03,2 

1552 IF fu AND COL=29 THEN GO SU 
B 4500 

1555 IF iN 53486=190 THEN LET 3 $ 
LET b $ = : 'r‘” 

1566 If iN 53486 = 189 THEN LET 3 $ 
= i>_ _LET fa$ = "'V l 

15 5 7 IF 0 r 0 M.I = r 0 M.I AND 0 C 0 I. = C 0 L TH 
EN_GO TO 1580 

15 ,"0 HHlN ! A ! O row , 0 CO 1 : ** : ST n 

r om.i +1, o co t; " “ 

1*71 IF fu THEN PRINT INK 3; OUE 
h i; iNK 5 ; A i or o w +2, o c o t.; “fl" 

15 >2 if SCRttN* (row, cot i :: T 
HEN GO SUB 3540 

15 73 IF SCREEN % ( r o w +1 , c 0 I 'i <• i! ” 

.AND cot>2 THEN GO SUE 3540 
15 4 IF 5CH E *N = ( row + 2 , C “I i 'I " " 

_AND fU=1 AND C0t >2 THEN G0 5UB 
1 5 M- 0 

1575 PRINT INK 5.; AT row , CO t ; a$; A 
I _ £ 0 hi +1 , C o t; fa $ 

15,-5 IF fu THEN PRINT INK 3; OUE 

f _i _ A i_row +2 , co t0 

15 80 L 5! 0r 0 W= r OW : L ET 0C0i = r n I 
1585PRINI RARER 1; INK 4;AT 21, 

1590 RETU RN 
2000 REM 


2010 
r o ® 4 1 

IP 

r o ^ 

> to r o ^ 

THEN 

LET 

to f o w =n? 

2020 
r o h} -1 

IP 

r o to 

< to f o \n 

THEN 

LET 

n « r o w =rn 

2030 
c o l +1 

IP 

c o t : 

> Ki C 0 t 

THEN 

LET 

ft 'i r n r = r? ; 

2040 

C 0 L - 1 

IP 

c 0 t ■ 

r,; r r, !. 

THEN 

LET 

to r o 1. = r*i 
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44 ; OUER 8;RT 20,1.; §’ 

3500 let man=inan-l: PRINT PRPER 
2; INK 7; BRIGHT 1; RT i,5.;man I 
P man =0 THEN go TO 7000 

3520 RETURN_ 

4000 REM 
4010 LET n=0 

4015 LET V =INT CRND ±18 ) +1 
4028 IP v >5 THEN GO TO 4058 
4838 LET h (V) =h (V) + 1: IP h (V } >28 
THEN LET h(V)=3 

4840 PRINT RT h (V) .. P (V) ; PLR5H 1 
: INK 5; ^ 

4845 BEEP *81,-18: BEEP ,81,-28 
4858 RETURN 

4858 LET h (V) = h (V >-1: IP h (V) <3 
THEN LET h(V)=15 
4878 GO T O 4848 

4518 LET fu=0 

4515 PRINT INK 3 ; RT Of DIM+2,0 CO U 

S! ; ST PiTi 1 ; :; 3 

4528 FOR”f = f 0W+3 TO 28 

4538 PRINT INK 3; OUER 1;RT f,25 

; 0 

4548 BEEP * 83 . f : BEEP * 83 , f ±3 : B 
EEP *83:f*2 

4558 PRINT INK 3; OUER 1;RT f,29 

: "U 

4558 NEXT f 

4578 FOR r =1 TO 5: PRINT INK 2;R 
T 15+f,29; f$ ( H : NEXT f 
4575 PRINT INK 2; RT 28 :25 ; 4S* 
4558 LET SC=SC+18: PRINT RRPER 2 
INK 7; BRIGHT i.;RT 1,25; sc: IP 
S C=OS C +58 THEN GO TO 5888 
4598 RETURN 
5888 REM 

^885 PRINT h ! o ro w , o co l; 41 “ ; RT o 

row + 1, o co L; 4 4 4 4 

5818 FOR f =15 TO 2 STEP -1 

5815 BRIGHT 1: INK 7 

5828 PRINT INK 2 ; RT f , 29; 4 RT 

f+1 29; s :t ;RT f+2 :29; s ,4 ;RT f +3, 

29; = ; RT f +4,25 ; ; RT f +5,25 

5033 FOR Q=1 TO 5: BEEP ,885,28- 
f : BEEP * 887 28- ( f +3) : NEXT q 
5848 NEXT f 

5858 CLS : PRINT RT 18,5; FLRSH 
1; 44 BONUS 188 POINTS 44 
5858 FOR f=-28 TO 28: BEEP .81,r 
BEEP =82,f+2: NEXT f 
5855 Ll! S C=S C +108: Lt! DSC=SC: 
LET V b =V b-1>1 

5878 0L5 : LlT f D w =19 : Lt! 0 r D = 

19: LET oC0L=25: LET C0t =25: GO 
TO 9148 
5888 REM 

5885 PRINT RT 8 : 5 ; INK 2; BRIGHT 
1; 

5818 FOR f=8 TO 6 
5815 INK r 

5838 PRINT H ! 1,8; 44 The o b j £ c t o f 

t h £ g a m £ i s t o s t e a t f u e l c u 

bes which appear onth£ bottom l£ 
ft of th£ screen !! 
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604© fkINT ‘"and drop them onto t 
h£ nose o f your rocK£ t ship, Uh 
e n t h £ shi p • s f u L l it w i L L l a u n 
ch and this earns you 1©© bonus 
po i n ts = 

6050 PhINT “Howeve r at th£ same 
t i m £ y o u is* u s t a v o i d t h £ d r a a d 

£d Morf and the £V£r-growing col 
urn ns of anti-matter, 

6070 PRINT “You may use your Las 
£ r to blast the morf,hut another 
on £ w i l L quicK l y a p p ear,You m 
a y a l s o b L o w h o L £ s i n t h £ c o l u m n s 
-but such holes will not last 
ind£fina t£ ly “ 

6080 PRINT TPB 18;“CONTROLS : 

6090 PRINT PRINT “*S=LEFT B=RI 
GHT H=UP B=LfiSEP. 44 

6091 PRINT INK 4: BRIGHT 1 

6092 FOR g =1 TO 1®: BEEP ,01, f*2 
+ g: NEXT g 

6095 NEXT f 
6099 PETU RN 

7005 CL5 

7010 IF sons ThEU GO TO 7O90 
7015 FOR f=© TO -20 STEP -1: BEE 
P ,01 . ? : BEEP ,01, f*2: NEXT f 
7020 PRINT hT 10,4;“YOUR SCORE U 
PS: : “ i S C 

7®S0 PRINT HT 12,4;“THE HIGH SCO 
RE IS : : “ : hS 
7©S5 GO TO 7120 

7090 FOR f —10 TO 60 STEP 5: FOR 
q = f TO f-5 STEP -1 BEEP ,01,g 
NEXT q: NEXT f 

7095 PRINT PT 10,8; FLPSH 1;“CON 
GRPTULPTIONS"; FLPSH © 

710© PRINT : PRINT TPB 7;“YOU SC 
OPED: : “;S C 

711© PRINT PRINT TPB 5;“THPTS 
P NEW HIGH SCORE 

712© PRINT PT IS,4;“PRESS PNY KE 
Y FOR REPLAY 54 

713© IF INKEY*=-•'■“ THEN GO TO 712 
0 

714© RUN ______ 

901© FOR f=1 TO 12: REPD x$ 

902© FOR g =© TO 7: REPD X : POKE 
USR x$+g,x: NEX1 g 
903© NEXT f 

904© DPTP “m 44 ,26,44,26,11,95,127 
,61,29,“n“ , 29,125 = 12©,96,96,224, 
0,0,“h“ ,56,52,56,206,25©,254,IBS 
, 164 

905© DPT P “i 164,19© ,30,6,6,7.. © 
, © . “f“ , 255,255,65,65,65,65,64,15 
.. b“ : 24:74,60 : 229,167,5© , 62,24 
90S© DPTP “s“ ,13,221,26,19©,15,2 
21,8,108,“£“,130.62,62,116,196,2 
14.252,34, 14 r 44 ,24,24,6© , 125,126,2 

55.255.255 

907© DPTP “c“ ,1,3,7,143,159,191, 
255,255,“t“ ,126,192,224 =241,249, 

253.255.255 , “ l 44 , 15,24© , 15,240,15 
,24©,15,240 
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Q0S0 FOR f=I TO 10: HERD X: LET 
P s f ) =x : NEXT f 

9090 DATA 7;li:15,19,23,5:9:13:1 
7.21 

9095 RETURN 
9100 REM 

9120 FOR f=1 TO 10 RERD X: LET 
P(fj—X: NEXT f 

9130 DRTR 7,11,15,19,23.5,9.13,1 


7,21 

9140 FOR f=i TO 5: LET h(f)=3: N 
EXT f 

9150 FOR f =5 TO 10: LET h (f) =20: 
NEXT f 

9150 FDR f =0 TO 31: PRINT PAPER 
1; INK 4; BRIGHT 0 ; RT 21, f 1 W :: A 
T 2 , f :! : NEXT f 

9170 FOR f=1 TO 5: FDR q=3 TO h( 
n : PRINT INK 5;AT q,p(f); FLASH 
l: s ‘^ ! ‘: NEXT 9 : NEXT f 
9150 FOR f=5 TO 10: FOR Q=20 TO 
h ( f ) STEP -1: PRINT INK 5;RT q ,P 
( f) ; FLASH 1; “i ss : NEXT 9: NEXT f 
9190 PR INT ODER 1 j AT m r o u , m c o l ; ss 

9200 PRINT INK 5;AT row,co l; “Jr; 
RT row -rl, co l; 8t r ,:i 

9210 LET r$ = ;; a^B FOR f =1 TO 
5: PRINT INK 2;AT 154 f ,29; r$ ( f) : 
NEXT f 

9220 PRINT INK 2; AT 20,25; 

9230 PRlT-rr PAPER 7; INK 2 ; AT 0,0 



9240 PRINT PARER 


9250 PRINT PAPER 2; INK 7; BRIGH 
T 1;AT 1,5;man;AT 1 ,17;l;AT 1,25 


; 5 r 

9255 PRINT INK 3;AT 20 ,1; ,: H !! 
9250 RETURN 

9999 SPUE :t ,i£ t 51 LINE 1 


Author: W. H. Jones 









Planets 



You are watching two planets going around the sun in a 
strange galaxy. You notice how long it takes for each one 
to orbit the sun. On 1 January 2020, both the planets and 
the sun are in a straight line. You wish to find the next 
time when this will happen. Next you can see the planets 
with the number of years for each one’s orbit marked on 
it. You have to give the next year during which you can 
see them line up again. 


1 HilM *******-r + ’-T±*±******TT 

2 REM 

3 REM PLANET5 

4- REM 

5 REM ** + ****4i-*±** + * + *****-7- 
5 REM 

100 DIM Si*; 30} 

210 RANDOMIZE 

295 GO TO 1000 

300 REM ** Message ** 

313 PRINT AT 20,1; BRIGHT 1 FL 
RSH 1; PAPER 5 : INK 0; »$ 

320 GO SUB 400 

330 IF IN KEY $ " THEN GO TO 33 

0 

335 LET K * = INKEY $ : IF *.$ = “ *' THl 
N GO TO 335 

337 IF * $> =“H“ AND K$<=“2" THEN 
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LET k$=CHR$ i CODE (k$) -32) 

34-0 PRINT PT 20,1; M 

345 RETURN 

350 hEM 44 Instruction ±4 
350 PRINT PT 20:1; BRIGHT I; PP 
PER 5; INK 0 ;m % 

395 RETURN 

400 REM 44 Pips 44 

410 FOR i=i TO 2 

420 BEEP 0,05:50- PRUSE 2 

430 NEXT i 

445 RETURN 

4*0 RtM 44 Draw border 44 
450 PRINT PT 0:0- P FOR i =1 T 
0 20 PRINT PT i:0; | :: : NEXT i 
465 PRINT PT 21:0; fe” FOR i =1 
TO 30: PRINT PT 21, i ; ‘W : NEXT i 
470 PRINT PT 21:31 A FOP i=2 
0 TO 1 STEP -1: PRINT PT i ,31; 11 I 
NtX i i 

475 PRINT PT 0,31; iJ f*‘ : FOR i =30 
TO 1 STEP -1: PRINT PT 0, i ; t; * 
NEXT i 
495 RETURN 


500 

hum 44 wasp berr 

y 44 


510 

BEEP 1 : 15. BEEP 

1, 12 


520 

BEEP s 5 : 25: FOR 

X =23 TO 17 

STEP 

EXT 

-0.5: BEEP :1:X 

X 

: PHUSE 

2 : N 

545 

RETURN 



550 

HtM 44 Conqratu 

L a t i 0 n s 

44 

555 

RESTORE 570 



550 

REPD n-P: BEEP 

n 1 ■■ 

P • IF 

n >0 

THEN GO TO 550 



570 
5.12 

DPTP 1,12,1,14, 

i,16,2, 

17,2: 

572 
5 : 14 

DPT P 1,17,1,15, 

1,17,2, 

19,2 s 

574 

DPTP 1:14:1:15: 

1,17,1, 

5,21, 

0 8 5 : 

19 



575 

DPTP 1:19:1,17, 

1,17,1, 

15,1, 

14,1 

,15,3,17 



550 

DPTP 0 : 0 



595 

RETURN 



999 

REM 



1000 

HEM 44 Show ins 

t r u c t i 0 n s 

1001 

REM 



1030 

PPPER 5: INK 1: 

CL 5 


1050 

RESTORE 5000 



1050 

PRINT PT 2-0; 



1070 

READ 1 $ IF i 5 m < > ■ ©" 

THEN 


PRINT 2$: BEEP .2 S RND430: GO TO 
1070 

1200 L*! m$ = :: press key for your 
teLescope. . " : GO SUB 300 
199y REM 

2000 R*M 44 Generate puzzle 44 

2001 REM 

2050 RRNDOrllZE 
2050 DIM P(2) 

20«70 DEr rN i (a ,b) =a 4b/ (24 (b-a) ) 
2050 LET p(l)=5+INT (RND410) 

2090 LET p(2)=5+INT CRND420) IF 

p (2) <=p (1) THEN GO TO 2090 
2120 LtT tab=rN 1 (p(1),p (2)) 

2130 LET ta b = INT (tab) 

299 'd RtM 



116 


Planets 


* * Disp lay puzzle ** 


3000 REM 

3001 REM 
3050 BORDER 5: RRRER 
3055 RESTORE 520O 
3050 FOR i=0 


CLi 


KE U5R :: a- 5 

3070 FOR i 
KE U5R "b" 
3050 FOR i 
KE U5R " c 11 
3090 FOR i 
KE U5R '■ d 51 
3100 LET 
3150 FOR 


+ i 
= 0 
+ i 
= 0 
+ i 
=0 
! ‘ + i 

i =1 TO 
INK 


TO 7 
by te 
TO 7 
by te 
TO 7 
by te 
TO 7 
b y t e 


*21... RND*31 
15 : NEXT i 
3200 LET Cl=10 


RERD byt e 
NEXT i 
RERD byte: 
NEXT i 
RERD byte. 
NEXT i 
HfcRD byte: 
NEXT i 
: LET b$ = :! W 
10: PRINT RT 
1 + INT (RND *7) 


PC 

PO 

PO 


Pf! 


RND 

; 5! * 


3210 PRINT INK 


LET C C = 14 
T; BRIGHT 1; RT cl 
, c c ; a $ ; R i cUl, c c ; b $ 

3330 FOR i=0 TO 5,2 STEP 0,2 
3340 LET X =15*5IN i: LET y=15*00 
5 2 

3350 PLOT INK 7;120:57: DPRU BRI 
GHT 1; INK 7; x •. y 
3370 NEXT i 

3350 PRI^rr #0; “Press ENTER to t r 
y your answer 11 ; 

3400 DIM r(2): DIM v(2) 

3410 LET Ml) =5: LET M2) =8 
3415 LET v( 1 ) =0 ,6: LET V(2) =0 , 2 
3420 DIM d (2) : DIM C(2) 

3430 FOR 2=1 TO 2: LET 
T (RND*4): NEXT 2 


c (i) =4 +IN 


3440 

DIM 

X (2) : DIM y (2) 


3450 

FOR 

2=1 TO 2 : LET 

X( i ) =14-r 

( i ) : 

LET 

y ( 2 ) =10: NEXT 

i 

3490 

LET 

i =1 


3494 

REM 



3495 

REM 

* * Planet r 0 t a 

t i 0 n 1 0 0 p 

3500 

LET 

d ( i ) =d (i ) +V ( i ) 


3520 

LET 

l = cl-(r(i ) *5IN 

d ( i ) .) 

3530 

LET 

c = c c- ( r ( i ) *005 

d C i ) ) 

3550 

IF l 

= y (i) RND c = x ( 

i ) THEN G 

0 TO 

3700 



3570 

PkIN! H• y (i ) , x ( i } 

!S : RT 

y (i ) 

+ 1 , X ( 

i ) ; ;i 


3550 

PRINT INK C ( i ); RT 

l, C : a $; RT 

l+l 

, C b $ 

fiT l, c O VER 

1 ; p i ) 

3600 

LET 

x i j =c : Lt i y ( 

i ) = l 

3700 

0 

3720 

IF INKEY $ > 55:: THEN 

GO !0 400 

LET 

i =2 +1 : IF i >2 

THEN LET 


2 =1 
3750 

3999 

4000 

4001 
4050 
INE 


GO TO 3500 
REM 

REM ** 

REM 
INPUT 
r $ 


Get answer ** 
Enter the year 


40 70 Liz i an5 ue r =URL 
4150 LET OK=1 
41 - 0 Ir a nswe r<>t a b 


r $-2020 

THEN LET 0 k = 


0 

4499 REM 

4500 RuM ** Check. ensuer ** 

4501 REM 

4550 IF ok=0 THEN LET n$="5orry, 
Ga l i l e 0 .* n 0 t t h a t year ! ,s : GO 5 
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UB 350: GO SUB 500: PAUSE 0 
4570 IP oK=1 THEN LET m$= “5ci£nt 
ist of the year i " GO SUs 350: 
GO SUB 550: PAUSE 0 
45S0 LET m $ = “Do y o u a n t an o t h e r 
t o o h ? " : G 0 5 U b 3 0 0 
4550 IP *.$<: >‘‘y" THEN PAPER 7: IN 
K 3: CLS GO TO 99a9 
4500 IP 0K =0 THEN GO TO 3000 
4510 IP 0K =1 THEN GO TO £000 
7959 REM 

5000 REM e* Instruction d at a 44 
8001 REM 

8010 DATA “ PLANETS"-, 

8020 DATA “Y0u are m atching tw0 
p Lane ts " 

8030 DATA “g 0 in g r 0 und a s un in 
a strange" 

8040 DATA " gaL 5 xy , You n 0 tice h 
out Long" 

8050 DATA "it t a K e s fof esch 0 n e 
to orbit" 

8060 DATA “the sun. On January 
1st 2020“ 

8070 DATA "bot h the plane t s an d 
the sun are" 

SOSO DA 1 A "in a st r aigh t Line, 
YOU wish" 

8090 DATA “1 0 find t he nex t tine 
when this" 

8100 DA 1 A "wi L L happen , “ , “ " 

8 II 0 DAsA "Next you can see the 
planets 

8120 DATA “with the number of ye 
a r s t 0 r 


8130 

DhTh 

£3 Cm OH £ 

s 0 r b i t 

m a r R 

£. d 0 n 
8140 

i t . -• 

DhTR 

■■'You ha v £ 

1 0 g i v e 

th£ 

n £ x t 
8150 

y £ a r 

DhTh 

during uh 

i c h y 0 u 

c a n 


see 1 h e r» 

8160 DAT A “ Line u p again , " 

8150 DATA “©“ 

8199 REM 

5200 REM 44 UDG Data - Circle 44 
8201 REM 

8210 DATA 3,15,31,53,127,127,15* 
•. £55 

8220 DATA 192 , £40,245,252,255,£5 
4,255,255 

8230 DATA 255,255 127,63,53,16,1 

F, . 

8240 DATA 255,255,254,252,252,24 

8,240,19h 

8990 GO TO 9595 

9000 INPUT "File to save ? ”Lx 

NE f $ 

9010 SPUE 4"m "; l.i f $ 

9020 GO !0 9999 

9100 INPUT "Pile to erase " "L 
INE f $ 

9110 ERASE 1, f$ 

9120 GO TO 9999 

9200 PAPER 7. INK 0 : CLS GO ! 0 
9959 


Author: P. J. Hill 


Colourgrid 



You will see a large square. You have to fill it in with 
small squares of different colours - five along each side. 
There must never be two squares of the same colour on 
any row, column or diagonal. To make things harder, you 
must fit your squares around four which the computer has 
already put in. These squares cannot be changed. Press the 
cursor keys to move around the square and the initial 
letter of each colour to change the small squares. 


1 REM *********************4* 

2 REM 

3 REM COLOURGRID 

4 REM 

5 RtM 4*4**** + + ****-S*****-ir**4 
9 REM 

11 REM 
15 REM 

100 DIM m $ (30) 

295 GO TO 1000 

300 HtM *4 Message ** 

310 PRINT PIT 20.1; BRIGHT 1; PL 
PiSH 1; PAPER 5; INK 0 ; m $ 

320 GO SUB 400 

330 IP INKEY$<>'“’ THEN GO TO 33 
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■335 LET K 5 = IN KEY S 
N GO TO 335 
337 IP *.$:=“ P “ PND K $ ■■■ = “ Z 
LET ( 5 . $=CHR$ ( CODE >.K$ ) -32 
340 PRINT PT 20,1;" 


IF R $ = “■•*» THE 
THEN 


345 RETURN 

3 u 0 Htil 44 instructi0n *4 
360 PRINT PT 20: i; BRIGHT 1; PP: 
PER 5; INK 0;at$ 

395 RETURN 

400 Hthl * 7 - Kips 44 

410 FOR i =1 TO 2 

420 BEEP 0,05,50: PRU5E 2 

430 NEXT i 

445 RETURN 

455 wtM St D r3w fa0rde f 44 


460 PRINT PT 0 , 0 ;"p 
0 20: PRINT PT i,0 


15,2,1‘ 


FOR i=1 T 
I " NEXT i 
465 PRINT PT 21,0; *’k“ FOR 1 =1 
TO 30: PRINT PT 21,i, - NEXT 1 

470 PRINT PT 21.31:FOR i=2 
0 TO 1 STEP -1: PRINT PT i ,31.; " 1 
“. NEXT i 

475 PRINT PT 0 *51;“1”. FOR i=30 
TO 1 STEP -1: PRINT PT 0 ,i; 

NEXT i 
495 RETURN 

500 Hth 44 Hasp berry 44 
510 BEEP 1,15: BEEP 1 = 12 
520 BEEP ,5,25: FOR X=23 TO 17 
STEP -0,5: BEEP . 1,X: PAUSE 2 N 
EXT x 

545 RETURN 

550 Htii 44 Cong r a tu la t i 0 ns 44 
555 RESTORE 570 

560 READ n,p: BEEP n 40 = 25,P IF 
n >0 THEN GO TO 560 
570 DATA 1.12,1,14 
5,12 

572 DATA 1,17,1,15 
5,14 

574 DATA 1 14,1,16 
0,5,19 

576 DPT A 1,19,1,17 
14,1,15,3,17 
580 DATA 0,0 
595 RETURN 

700 heM 44 Function to print sq 
u a r a a t r 0 W L , c 0 L c , c 0 1 0 u r x 
710 DEF FN s$ i l ,c,x) =CHR$ (17 )4 
CHK$ (X) 4 F N P5 ( 143 + 1,C43) +” “ + 

FN p* i. L 4-3 42,043)4 ’’ " 4r N p S C t 45 

43,045)4“ 

L- 1 5 r~ F N 0 >. a .' = c! 4ir a 
750 DEF FN p$ ( t 0) =OHR$ (22) 40H 
R$ U)_ j-OHRS ( 0 ) 

605 heH 44 Function 1 0 p rint 0 u 
r s 0 r 0 n r 0 w l, 0 0 l u m n 0 44 
SIS D5F fN o $ ( L . 0 ) =FN p S ( L 45 42 , 
0 45 41)40HR$ i 17)40HRS i8) 40HR $ ( 

IS)40HR 5 (9)4CHRS (18)4CHRS (1)4 

8 50 REM 44 F u n 0 1 i o n 1 0 f a n> 0 v a 0 
u r a 0 r 

860 DEF FN d $ 11 ,0) =FN p$ ( L4342, 
C43415 40HRs (17)40HR5 (8) 4CHR$ ( 


1. 
1, 
1 . 
1, 


17, 

17, 

17, 


2 , 19 , 2 , 
1,5,21, 
1, IS,1, 




18) *CHR$ (0 
1888 REM ** 
1858 BORDER 
1358 CL5 
1878 RERD 
1888 POKE 
K E s s c r e e n 
1898 
1188 
( i) ; 

1118 
1128 
GO TO 1180 


) m " 

ms t ru c t i ons * 4 * 

4: PRPER 8. INK 8 
RESTORE 8888 

i $ 

23592,255: REM Po Ke ® 
s c r 0 L t w 1 t h 0 u t a s K i n 
PRINT RT 21:8; 

FOR i=1 TO LEN 1 $: PRINT 1 $ 
BEEP s 82 8 NEXT 1 
PRINT 

RERD i5. IF i $ ill • > i! © !: THEN 


1288 

Lti a|="Kre 

s s a n y 

K e y 1 0 c 0 

ntinue": GO SUB 

388 


1999 

REM 



2888 

REM 5Et 

u p p u z z 

Le ** 

2881 

REM 



2828 

DIM Z (5 : 5) : 

DIM w ( 

5) : DIM V 

(5) : 

DIM f(4,2) 



2838 

RRNDOMIZE 



2858 

FOR i=l TO 



2855 

LET u (i ) =l-fINT (RNDt-5) 

2857 

Liz ! US Ed =8 



2858 

FOR j =1 TO 

1 -1 


2852 

1 

1 r w ( j ) =u (i 

J THEN 

Liz! USEd = 

2853 

NEXT j 



2865 

IF US E d =1 THEN GO 

TO 2855 

2859 

NEXT i 



2878 

FOR i=l TO 

5: LET 

Z ( i , 5 - i ) = 

m ( i ) : 

NEXT i 



2158 

FOR i=l TO 

nr : 


2158 

LET t=i: LET c=5-i 


2178 

FOR .1=1 TO 

4 


2188 

LET l = L-2 

IF i <1 

ThEH LET 

t = l + 5 



2198 

LET C = C t1; 

IF C >5 

THEN LET 

c = c - 5 
2 Huki 

LET z ( L * C) = 

U ( i ) 


2218 

NEXT i 



2228 

NEXT 1 



2248 

FOR i=l TO 

5 : LET 

V ( i ) =U i i i 

: NEXT i 



2258 

FOR i=l TO 

4 


2278 

LET l=i+INT 

(RND *5 

0 : LET C= 

i + INT 

' (RND-rE) 



2288 

Liz ! USEd = 8 



2298 

FOR j=l TO 

zr 





IF v i j 

: LET 
U £ E d = 1 

NEXT j 

IF ys E d =8 THEN GO TO 

NEXT i 

REM 

HtM -r-r Display s crEEn 
REM 


)=Z(L,C) THEN LET r (i 
f ( i , 2 ) = C : Liz ! V ( j ) =3 ; 


78 


LET c$ 
DIM a ( 
BORDER 
GO BUB 
PP.iT-rr 


= ;s BR MG CY ; 5 
5,5) 

5: PRPER 
458 

RT 3,2, 


INK 8 


3858 

3868 


l-OR i =4 FO 18 
PRINT RT i,2, 1 


u::i i:u 
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3073 NEXT i 
3080 PRINT PT 


19 , 5 . 


3100 PRINT PT 3 50; "Co Lours : M 

3120 FDR i=i TO 5 

■Jj X 3 P : HIN 1 H ! I -r 4* •• hi. X ,i C 5 «. w l 1 .* 

3143 NEXT i 

3150 FDR i=l TD 4 

3150 LET L = r (i :1) : LET C=f(i,2) 

3170 LET a ( L , C ) =Z ( L , C ) 

3150 PRINT FN s $ l l , c •. z ( L , C ) ) 
3190 NEXT i 
3999 REN 

4300 Kth ** Dal ansuer 

4301 REM 

4050 LET 1=1: LET r =1 

4050 LET m $ = ;i Press ENTER to try 

y o u r ans ua r 15 : SO 5Ux 3x3 


4103 PRINT FN C $ U,C) 

4153 IF INKEY $ THEN SO TD 41 


50 


4150 

4170 

LET 

4158 

4190 

4230 

i = i - 

4220 
C = C + 
4240 
C = c - 
4250 
1 = 1 + 
4253 


RRU 5E 0 : LET k * = INKEY $ 

IF k $ > = " a ;: PND k $ < = ;s z THEN 
k $ =DHR$ (DDDE k $-32) 

PRINT FN dji 1:0 


LET 0 k =0 
IF k$="7" PND 
1: GO TO 4100 
IF k $ = “5 M PND 
1: GO TO 4130 
IF k$ = s ‘5 : ‘ PND 
1: GO TO 4130 
IF k $ = 1, 5“ PND 
1: GO TO 4130 

IF k $ =CHR$ (13) THEN GO TD 


L >1 THEN LET 
C <5 THEN LET 
C >1 THEN LET 


I 


THEN LET 


4500 

4330 Lx! O ri9 =0 
4313 FDR i=l TD 4 

43h 3 Ir L = r (i ,1) PND c = r ( i .2 ) r H 
xN Ll! o riQ =1 
4330 NEXT i 


4343 IF oriq=l THEN GO TD 4453 
4353 FDR i=1 TD 5 

4350 IF k$ = C 5 (u(i)) THEN LET a ( L 

: C ) =W ( i ) : PR INT FN S$ ( l , C , U i i ) ) : 


LET o k =1 
4373 NEXT i 

4450 IF o k =0 THEN BEEP =2,25 
4453 GD TO 4103 

4499 REM 

4x00 hxM ** Shack ansuar +4 

4501 REM 

4550 LET ok =1 

4550 FDR 1=1 TD 5 

4573 FDR C=i TD 5 

4580 IF a (l,c) <> I (L ,C) THEN LET 
0 k =3 

4590 NEXT c 

4500 NEXT L 

4650 IF ok. =1 THEN LET ni$ = :: Mary 
q q od - you ; ra right ! ! !: : GD 5Ux 
350. GD’SUB 550: PPU5E 3 
4573 IF 0 k =3 THEN LET n$ = :: WRONG 
- c ha c k t ha co l o u r s i 51 : GD 5U 
B 350: GD SUE 500: PPU5E 0 
47453 Lx i ni$= 'Do you uant anothar 
g 0 ? (Y / N ) '• '■ : Q 0 5 U B 3 0 3 
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Colourgrid 


C 0 L 0 Li R GRID 11 
a u\ i n u t e y o u u i L i 


it in m ith s m alt squa 
d i f f £ r £ n t c o L o u r a- - f 


£ a c h side : : : 

! h £ r £ Hi U S t n £ V £ ■ 


0 f t h £ 5 a Hi £ 


D £ t 
c o L o U r o n 


4720 IP THEN CL5 : GO TO 

9959 

4740 IP ok=I THEN GO TO 2000 
4750 IP o fc=0 THEN GO TO 3000 
5000 DhTh 
5010 DhTh 
5020 DhTh In 
5 £ £ a 

5030 l>h i h *'• L a r q£ s qu a r £ Vo u h a 

v £ i o f i L l 
5040 DhTh 
r£s of 11 
5050 DhTh 
i v£ along" 

5050 DhTh 
5070 DhTh 
W 0 £ q U a r £ s 
5050 DhTh 
any rou , 

5090 DhTh 
5100 DhTh 
, y o u n? u s t 
5110 DhTh 
nd four 15 
5120 DhTh 
s alraadq 54 
5130 DhTh 
cannot he 
5140 DhTh 
5150 DhTh 
to fit 0 V £ 55 
5150 DhTh 
d the i: 

5170 DhTh 
h colour SI 
5150 DhTh 
qua res = , 55 

5190 DhTh 
5990 GO TO 9999 
9000 INPUT 55 Pi t£ 

NE f 5 

9010 5HUE * 55 nr‘ ; 1 
9020 GO TO 9999 
9100 iNyul ,: ri l£ to erase 
INE f $ 

9110 ERASE "a":1; f$ 

9120 GO TO 9999 


colu an o r dia gon a l * 

! o % a k £ t h i n g s h a r d £ r 

fit your squares arou 

whi ch th£ conspu t£ r ha 

P U t in* Th £ S £ £ qu 3 S' £ S 

c h a n g £ d = : ' 

h r e s s t h £ c u r s o r k £ y s 
a r o u n d t h £ s qu a r £ . a n 
i n i t i a l l £ 11 £ r o f £ a c 
t o c han ge the s m a 11 s 
©‘ 

499 

to sav£ ? 55 LI 
ft 

L 


Author: M. A. King 




TNT 



An arcade game with great graphics - but you’ll need 
quick reactions! You have to defuse the TNT before time 
runs out and the bomb explodes. The better you become at 
the game, the harder it gets to win. Controls: “Z” left; 
“X” right; “P” up; “L” down; “A” left scroll; 

“S” right scroll. 


1 LET n =0: GO SUB 9s3 

2 GO SUB Be3: LET hS=n 

3 LET tv =3: LET 1=1: LET S C =n 

4 LET X $ = ■■ 11114331101” : LET y 
$ = ; ‘ 32132121216 “ 

5 BORDER 5: INK. 1: PAPER 7: B 
RIGHT n: FLASH n: OUER n: INUERS 
E n: CL5 

10 FOR h=n TO 240 STEP IS: HUH 
3=173 TO 15 STEP -15: PLOT b,3 
20 DRAU n.-13: DRAW 13,n: DRAW 
1,1: DRAW -13 , n: DRAW n,13: DRA 
U 1,1: DRAW 13 , n: DRAW n ,-13 
30 NEXT 3: NEXT b 
40 LET X=15: LET y =10 
50 LET b$ = '’ASZXPLaSZXpi" 

60 FOR 3=1 TO 1*4+5 
55 LET p =2*INT (RND+10) : LE! r 
=2+INT (RND+10): LET q=2+INT (RN 
D+15): LET S=2+INT (RND+15) 
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t>7 IF p=i" PND q=s THEN GO TO 6 


p 

q. 


70 PRINT PT 
5; « !! .;hT r-fi 

75 PRINT PT 

6; ® !! : H ! p +1 

80 NEXT a 
55 FDR t =1 TO 5 
90 LET a=24lNT 
=2*INT (RND4153 
100 IF a =y RND b = 

0 

110 
5H 1 

, h; :! 

.15 PRINT PT 20 


INK 2; PPPER 


q j INK 


(RND*10) 


PPPER 


LET b 


THEN GO TO 9 


PRINT PT a:h; 
INK 4; PPPER 


BRIGHT 


1 ; 

PT 


FLP 

a 4 x 


i ) 

116 PPU5E 100 

117 FOR ,l=i-l TO n STEP 
120 PRINT PT y,xj INK 1 

6 ; “JB Pi y + i, x; ;! !t 

150 PRINT PT 21: n ; “SCORE = " ; • 

“ PT 21,13; s; HIGH = :; ; hs ; PT 21 
' s LIUE5 = :: ; tv 
135 PRINT PT 20 •. .1 ; i,,s 
LET a $ =INKEY$ 

FOR C =1 TO 12 

IF a $ = b$ ( C) THEN LET d=C-(5 


-1 

PPPER 


.25.; 


140 
150 
155 

PND c>6): GO TO 170 
160 NEXT c 

165 NEXT j: GO TO 5e3 
170 IF d>2 THEN PRINT PT 4 , x; I 
NK 6 ; " il ; PT 44i,x; 55 
_ 1 75 LizT X =X 42 4 i d =4) -2 4 id =3) . Liz 
i y=y +2* id =6)-2 4 id =5) 

180 IF d<=2 THEN FOR u=n TO 1: 
FOR v=n TO 1: PRINT PT y4V,n ; L 
FT q =U5R 32054: LET q=USR (32000 
4(42 PND d=13): NEXT V: NEXT u: 
LET X = X 4(2 PND d =23 - (2 PND d=I3 : 

GO SUB l£3 : LET j=j-l: IF .1 THE 
N GO TO 135 

155 IF d < =2 THEN GO TO 5£3 
190 GO SUB l£ 3 
200 LizT 3 =H ! ! K ( M . X 3 
205 IF a=54 THEN LET X=X+2*(d=3 
) -2 4 id =4) : Liz i 4 = 4 42 4 id = d>3 -2 4 id = 
5 3 

207 GO SUB i£3 

210 IF a=42 THEN BEEP ,005,30: 
BEEP x O0Z', 25 : Liz i SC=SC4l04 
220 IF a>53 THEN GO TO 6e3 
230 IF a=45 THEN GO TO 7fi3 
240 Lizi S C = S C 410 
250 BEEP .01.(12 PND d=6> 

3 4(5 PND d =33 4 (17 PND d=4 3 
300 NEXT j: GO TO 5fi3 
1000 LET x =X 4 (32 PND X=-23 
ND X =32) : LET 4=4 4(20 PND 
(20 PND 4=20 3 : RET UP. H 
4000 CL5 : PRINT PT 20,0; INK 0. 

{-■ i-l {—* 4 O 


4 id 


- • lx 
y =-l 


H 

3 - 






4.00b LET b=2-rINl (Rfe + i: 

INK 2 : PAPER 5 ; PT 20 . fc ; •*; PT 

21 , b; 1” 
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4010 PRINT PT 10,1;"press any Ke 
y w hen man appears ov 

er the flap" 

4020 FOR 3=1 TO 250: NEXT a 
4030 PRINT PT 13,n,., 

4340 FOR y=n TO IS STEP 2: FOR X 
=n TO 33 STEP 2 

405© PRINT PT y , x ** & " ; PT y +1, X ; 

4060 FOR a =n TO 1: IF INKEY$ 0 “” 
THEN GO TO 4130 
4370 NEXT a 

4080 PRINT PT y , x ; " “ PT y+l, x; 

“: NEXT X: NEXT y 
4033 PRINT PT 10,n; FLPSH 1;“ FP 
ILEDi FAILED! FAILED! FPILED! " 
4085 FOP 3=255 TO n STEP -5: BEE 
P .01,3/10: OUT 254,a: NEXT a 
4087 FOR 3=1 TO 50: NEXT a 
4093 RETURN 

4100 PRINT Pi y,x.:“ ”PT y+l,x; 

" : FOR a =y +1 TO 20: PRINT PT 
a , x“ S'"; PH a + l,x;"5f": PR IN i Pi 
a-1,x ": BEEP .01,3: NEXT a 

4110 IF X = b THEN LET SC=SC+4e3-( 
50+y 3 ; PRINT PT 10, n; FLPSH 1;"B 
ONUS!! BONUS!! BONUS!! BONUS!!": 

FOR b = 1 TO 5: FOR 3=30 TO 15 ST 
EP -1: BEEP =005,3: NEXT 3: NEXT 
b: FOR 3=1 TO 50: NEXT 3: RETUR 
N 

4120 GO TO 4033 

SOOO PRINT PT 20 , n " “ : FOR a =n 
TO 255 STEP 5: BEEP .01,3/10: OU 
T 254,3: NEXT 3 
5020 GO TO 7S20 

6000 PRINT INK n; PT y , X ; ‘ ® PT 
y+l, x; “3H5" 

6005 FOR b = 1 TO 5: FOR a=30 TO 1 
5 STEP -1: BEEP .005,3: NEXT 3: 
NEXT b 

6010 LfcT sc=s C+le 3 

6025 LET X =X t 2—(4 PND x=30) 

6027 PAUSE 50 

6030 NEXT t: LET i=i-fi >14> : LET 
1 = 1+1 

6035 GO SUB 4e 3 
6040 GO TO 5 

7000 FOR 3=1 TO 50: LET b=(3/2=1 
NT (3/2):: PRINT INVERSE fa; OVER 
1PI y , x “ " ; hT y+l, x“ “ : Nl 

XT a 

7010 PRINT PT y.X; INK 7; PAPER 
0 A"PT y+l,x; "HST* 

7015 FOR a =1 TO 11: BEEP UPL (y$ 
(a ) ) /4,UPL (x $(a) ) -1: NEXT a 
7020 LET tV = tV —1 IF tv THEN GO 
TO 5 

7030 IF SOhS THEN PRINT PT 21,1 
7 : jh S ; " " : LET hS=SC: PRINT PT 19 
, n; FLPSH i; INVERSE 1;" 

, NEW HIGH SCORE!! 

7040 PRINT PT 20,n; FLPSH 1;" P 
RE55 ANY KEY TO PLAY AGAIN 
7050 IF INKEY $<:>"" THEN GO TO 70 
50 
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7050 IF INKEY$="" THEN GO TO 706 
0 

7070 GO SUB 8230: GO TO 3 
5000 BORDER n: PAPER n. BRIGHT n 
: INUERSE n: ODER n: FLASH n: IN 
K 7: CL5 

5010 PRINT TAB 10; INK 2; PAPER 
5; FLASH 1 ;"g = 1 1 I 
8020 PRINT TAB 10; INK 2; PAPER 
5; FLASH 1;" INK n; PAPER 5; 
FLASH n.; *’ TNT PAPER 5; INK 

2; FLASH 1;” " 

5030 PRINT TAB 10; INK P; PAPER 
5.; FLASH 1.; "§ iiii 
8035 PRINT “ by CASWELL R PALM 
ER “ ; 

■3040 PRINT ' “ THE OBJECT OF THIS 
GAME IS TO DEFUSE THE TNT BEFO 
RE THE TIME RUNS OUT THEN THE 
BOMB EXPLODESIF THIS HAPPENS YOU 
WILL LOSE ONE OF YOUR THREE 
LIUES■" 

8050 PRINT “AFTER 5 SCREENS OF A 
VOIDING THE SKULLS,GAINING POINT 
5 BY RUNING ON FLAGS AND DEFUSIN 
G BOMBS, STAGE 2 IS REACHED:“ 

8060 PRINT “ YOU MUST PRESS A KE 

Y WHEN CAS IS OUER THE FLAG FOR 
A BONUS OF UP TO 4000;THE QUICK 

ER YOU ARE THE GREATER THE BONU 
S ! “ 

8070 PRINT " STAGE 1 THEN BEGINS 
AGAIN BUT NOW WITH LESS TIME!! 
HA HA I I ** 

8030 PRINT - ! 1 G00D LUCKill (Y0U"LL 
NEED IT!)“ 

8200 PRINT U 1.; FLASH 1; “PRESS AN 

Y KEY TO START“ 

8210 IF INKEY JO"" THEN GO TO 82 
10 

8220 IF INKEY$ = “" THEN GO TO 822 
8 

8230 CL5 

3240 PRINT AT 5.5; FLASH 1;“ENTE 
R LEVEL (0 TO 9)“"' FLASH n;“ 

0 = EASY 9 =HARD“ 

3245 PRINT AT 15,n;"- 

-CONTROLS:' 

Z=LEFT X=RIGHT"'" 

P=UP L = DOWN“ 

3247 PRINT “ A =LEFT SCROLL"' 

5=RIGHT SCROLL" 

8250 LET 3 $ = INKEY $: IF 3$<"0" OR 
5 $ >"9“ THEN GO TO 5250 
5260 LET i=32-2*(UAL 3$) 

8270 RETURN 

9000 RESTORE 9050: FOR 3=USR ”3” 
TO USR “t"+7: READ b: POKE s.b: 
NEXT 3 

9010 RESTORE 9100: FOR 3=32000 T 
0 32135: READ b: POKE a.b: NEXT 

3 

9030 RETURN 

9050 DATA 15,79,63,9,11,30,60,63 
,240,242,-4,144,176,120,60,-4,63 
, 63 , b , 47,6 , b , 30,62 , -4 = b , b , 244,96 
,96,120,124 
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9051 DhTh 7.31 : b.57,b,53,29,7,10 
3 = 242 : -4 : 31 .. 7 : -1 : -4 : 96 >s 224,246 , h 
: 156 : h . -4 . 164 :224 :230 : 175,63 246 
,224,127,63,6 

9052 C‘HTH 0:1:3:15:63:119,99,247 
: 244 245 : b : 117 : 127 : 53 ,15 : 3,192,1 
26,192:240:-4.235,195,239,47,175 
;175:174:-1:-4:240:192 

9053 DhTh n,3,14,52,126,62,14,3, 
H : h , b : b : b : £• : fa i b : 124 , “4 : 60 : “4 ,50‘ , 
-4,b:b: 124 : 12 :b:&,fa,b,b ,t 

9054 DhTh 1:3:15,31,53,h,127,99, 
109 : 99,103:107:109,127, b , b ,125,1 
92:240:245,-4,-4,-2,70,55,70,94, 
b , b :- 2 , b : b 

9100 DhTh 17:31:54,213,225,43,1, 
31.0.25:237,154:35,119,55,2,125, 
254:71:40:5:60:50:2:125,24,229,1 
7:31:65:213:225:43:1,31,0:26,237 
:154,35:119:291 

9200 DhTh 17:0:54,213:225,35,26, 
1,31:0,237:176:43,119:55,44,125, 
254,71,40:5,50=50,44,125,24,229, 
17,0,55 213 : 225,35,25,1,31,0,237 
,175:43:119,201 

9300 DhTh 42,132:92:34:43,125,12 
4,195,7,50:15 : 125,1,31,0,9,34,1, 
125 : 124 : 195 : 7 : 50 : 60 : 125 : 55 : 137 : 9 
2,71,52,24:144:35.0,111.6,5,41,1 
5,-3,17,31:55:25,34,25,125,17,22 
5,-1,25,34:70:125,201 
9400 BORDER 0 
9500 RRRER 0 


Author: C. R. Palmer 


Baths 



Here you have a perfectly ordinary bath, with the hot and 
cold taps left running. The plug is out, but the taps will fill 
the bath faster than it will empty down the plughole. If we 
tell you how long each tap takes to fill the bath by itself 
and how long it takes the bath to empty without the taps 
being on, can you say how long it will now take the bath 
to fill up? You have to do it before the bath on the screen 
fills up ... Don’t get wet feet! 

100 DIM m* (30) 

210 RANDOMIZE 

2S5 GO TO 1000 

300 P.tM ** Message 

310 PRINT AT 20,1; BRIGHT 1, Pi_ 

RSH 1; PAPER 5.; INK 0m $ 

320 GO SUB 400 

330 IP INKEY$<>“’* THEN GO TO 33 

0 

335 LET k 5 = IN KEY 5 : IP ks = : '“ THE 
N GO TO 335 

337 IP k $;=“A“ AND k$<=“Z“ THEN 
LET k$=CHR$ (CODE (k$)-32) 

340 PRINT AT 20,1;“ 

345 RETURN 

350 REM * * instr uc tio n * * 

360 PRINT AT 20.1; BRIGHT 1; PA 
PER 6 ; INK 0;m $ 
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395 

400 

410 

420 

RETURN 

KtM ** Hips if 

FOR i=1 TO 2 

BEEP 0,05,50: PROSE 2 

430 

445 

450 

NEXT i 

RETURN 

heM Draw b 0 rde 

!’ rr± 

460 

PRINT RT 0,0: “p: 

FOR i=1 T 

0 20 . 

PRINT RT i, 0 ; | 

: NEXT i 

465 

PRINT RT 21,0: "fc ' 

FOR x =i 

TO 30 

PRINT RT 21 i ; i: 

= NEXT i 


4-70 PRINT RT 21,31; “J” FOR i =2 
0 TO i STEP -i: PRINT *T i ,31;" 1 
; NEXT i 

4-/5 PRINT RT 0.31; T s : FOR i =30 
TO 1 STEP - 1 ; PRINT PT @.i;“= 
NEXT i 


435 RETURN 

*80 Htii K3 s p be r r y * * 

510 BEEP 1,15: BEEP 1.12 
523 BEER .5,25: FOR X=23 TO 1? 
STEP -0.5: BEEP .l.X: PROSE 2: N 

EXT x 

545 RETURN 

*50 HtM ** Con 3 r s t u La t i ons *•* 
555 RESTORE 570 

*60 keRD n , p : Bech' n *0 2t . p IF 
n >0 THEN GO TO 560 
* 40 DRTR 1,12,1,14,1,15,2:17,2. 
5 ,12 


572 DRTR 1,17,1,15,1,17,2,19,2= 
5,14 

574 DRTR 1,14,1,16,1,17,1.5,21, 
0_=_5,13 

575 DRTR 1,19,1,17.1,17,1,15,1, 
14,1,16,3,17 

580 DRTR 0,0 
595 RETURN_ 

700 RtM * rLin c t i 0 n to ge t c 1 0 c k 
time in seconds - FN t () 

710 Dtr r N si i x , y ) = (x +3 -fficS (x -y 

'! ) , '2 

720 DEF FN LI O = (65535*PE£K 2357 
4+256*PEEK 23573+PEEK 23572)/SO 
730 DEh r-N t C) =rN m irN u O ,rN U 

i) ) 

993 REM 

1000 RtM * * 5h 0 i.i.i 1 ns t r u c t i 0 ns ** 

1001 REM 

1040 BORDER 2: PRPER Q : INK 0 - C 
LS 


1050 RESTORE 8000 
1050 PRINT RT 1 , 0 ; 

10/0 HtRD if. IF i $.</>"©*’ THEN PR 
INT i%: GO TO 1070 
1075 DIM i % (32) 

1060 FOR i=21 TO 0 STEP -1: PRIN 
! RT i, 0 ; PRPER 5; OUER 1 ;i 5 • PR 
USE 20: NEXT i 
1100 PRPER 7 

1200 PhINT 80;“press any key to 
continue , , , ": PROSE 0 
1333 REM 

20u0 RtM ** Generate puzzle ** 

2001 REM 

2050 RANDOMIZE 

2063 LET hot =5 +INT CRND&30) 

2070 LET coId=5+INT (RND*30) 

2080 LET empty=5+INT «RND*30; 
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2090 IF £ m p 1'4 < hot PND £ m P t y < C 0 l d 
THEN SO TO 20S0 

210 0 LET ti ffl £ = i h 0 t * C 0 l d * £ m P t y ) / 
ho t ± £n;p t y t co Id + £m p ty - ho t 
* c o L d ) ' 

2110 LET t i m £ = I NT (time+0.5) 

2999 REM 

3000 REM + + Show bath filling ** 

3001 REM 

3010 RRPER 7: INK 3 
3020 CL5 : GO SUB 450 
3050 LET 11=2 

3060 PRINT RT 11,1;"Hot fills & 
ath in ”.;hot;” mins” 

3070 PRINT RT 11 + 1,1.; ” Co l d fills 
bath in ” ; co Id,” mins” 

3080 PRINT RT 11+2,1;”P lu5 emp ti 
£ s bath in empty.;" mins” 

3100 LET bo 110 m =47: LET d£ p t h= 50 
3120 PLOT 37,b0 110m + d £ p t h 
3130 DRRU 10,0; DRRW 0,-depth 
3140 DRRU 153,0 
3150 DRRU 0, depth: DRRU 10,0 
3200 FOR i=23574 TO 23672 STEP - 
1: POKE i,0: NEXT i: REM Set ClO 
c K t o z £ r o 

3210 LET tp i.=l; LET wa t£ r =© 

3240 PRINT RT 15,1.; FLRSH 1.; BRI 
G HT 1,”P r e s s E NTER t o t ry your a 
ns»er“;Hi 19,1;" - before the ba 
th overflows i” 

3250 IF FN t() >water+tpl THEN Liz 
T w a t e r =w a t e r +1; hLO i INK 5.; 45 , b 
ottom+water: DRRU INK s;is1,0: s 
EEP ,1,15 

3270 IF water>d£Pth THEN GO TO 5 
000 REM End of time limit 
3300 IF IN KEY $ >”” THEN GO TO 400 
0 : KtH Ge t a n s w e r 
3350 GO TO 3250 

3999 REM 

4000 kcM ++ Get answer ++ 

4001 REM 

4020 DIM w $ (30) : PRINT RT 18,1;W 
$ ; RT 19,1,: w$ 

4050 INPUT "Time - to nearest mi 
note ? ”.; LiNs r$ 

4060 LET answer=URL r$ 

4070 Lt; answer=IN! (answer+8 ,sj 
4050 IF answe r =time THEN LET o K = 
1 

4890 Ir answe r <>time tHtN Ls; o * 

= 0 

4499 REM 

4500 hsM ++ :jhecf answer + + 

4501 REM 

4550 IF 0k =1 THEN GO TO 4570 
4560 LET m$=“WRONG ! Try again 
- quiCK I”: GO SUB 350: GO SUB 5 
00: PAUSE 0 

4565 LET m$=““: PRINT RT 20,1;mi 
: GO TO 3240 

4570 IF OK. =1 THEN LET m$ = “5aved 
from the flood!”: GO 5Us 3s0 GO 
SUB 550: PAUSE 0 

4550 Lt■ m$ = ”Do you want another 
try •?”: GO SUB 300 
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4-5 =70 IP fe$o-y •••• THEN PAPER 7: IN 
K _ 0 : C i_ 5 G 0 T O 9 9 9 9 

4610 GO !y 2000 
4999 PEN 

7000 KtM + + tnd of time Limit + + 

5001 REM 

5005 DIM W $ (30) 

5007 PAPER 5 

5010 FOR i=10 JO 20 

5020 PRINT AT i , 1; w$ 

5030 NEXT i 

7070 hR IN i A ! 18,1"So r r y - t hi s 

Puzz Le has come " A ; 19,1; " t o 

a watery end ! 

7070 POP: i =1 TO 10: BEEP .1,-10 + 
AND+30: NEXT i 

5070 IP INKEY $■=’"'■ THEN GO TO 505 
0 

5080 GO TO 2000 

7999 REM 

8000 KtM * * Ins tructions + + 

8001 REM 

8010 DATA " BATHS"," 

8028 DATA "Here you have a per fe 

r t L y 15 

8030 DAT A “o 'dinar y bath, with t 
he hot and “ 

8040 DA!A "cold taps Le ft runnin 

g = “ 

8070 uA i A "'The plug is out, but 
the taps ” 

8080 DATA “wilt fill the bath fa 
ster than" 

8098 DAT4 "it will empty down th 
a plughole,",” “ 

8188 DA!A “If we tell you how to 
ng each tap" 

8110 E>ATA “takes to fill the bat 
h by itself” 

8120 DATA “and how Long it takes 
the bath” 

8130 DAiA “to empty without the 
taps on^” 

8148 l>A ! A "can you say how Long 
it will now" 

8170 DA ■ A "take the bath to fill 

i { T: **/ : ? . ; s 55 


8150 

DPT 8 

■■‘You ha 

V £ 

t o d o i t 

h£ f 

o r e 

the 1S 





8178 

DPTP 

"bath on 

t h £ 5 C f £ £ H 

f i 

i S •=. 

UP 





8188 

DPTP 

“Don •' t 

ge 

t w£ t feet 

\ :s 

8198 

DPTP 




8998 

GO TO 

8 8 88 




9888 

INPUT 

4 * F i L £ 

t o 

save ? 44 

i T 

HE f 5 





9818 

SPUE 

:: ; 1; 

ft 



9828 

GO TO 

9898 




9188 

INPUT 

44 ri L £ 

to 

erase ? :: 

: L 

INE 

fi 





3118 

ERP5E 

i; 

ft 



8128 

GO TO 

9888 





Author: K. Kenyon 


Insects 



In this puzzle you have several insects, each with a 
different number of legs. There is the same number of each 
type of bug. We tell you the number of legs on each type 
and the total number of legs on all the insects. You tell us 
how many of each type of insect there are. 


10 rem *** insects *** 

15 REM 

100 DIM !»$ (33) 

210 RANDOMIZE 
295 GO TO 1000 

L ; 0 r* 1Z. r~1 *r N £ S S S Q £ ± rr 

310 PRINT PT 20 I BRIGHT 1 fl 
P.SH 1 PPPEP: 5 ; INK 0 ; m $ 

340 GO 5 Uu 400 

330 IF IN KEY $ < • THEN Qij TO 33 

0 

335 _5T K 5 =INKEY $ IF b $ = ' :! THE 
N GO TO 335 

337 IF k $ .. =- : Pr : PND K. $ = l? Z i! THEN 
LE I r'. 5 =CHR $ ( CO Du ( K. $ ; -32) 

340 PRINT PT 20 I, : " 

345 RETURN 

Ktzr-1 ** instruction ** 

350 PRINT PT 20,1. BRIGHT 1 PP 
H’tiR 5: INK 0 ; iii? 
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395 RETURN: 


400 

K4M 4 4 

Pips 

4 + 

410 

FOR i = 

1 TO 2 


420 

BEEP 0 

= 05 .. 50 

• PRUSE 2 

430 

NEXT 2 



445 

RETURN 



450 

REM 4 4 

D f a w 

b 0 r de r 44 

440 

PRINT 

RT 0 -. 0 

r FOP 2=1 T 

20 : 

PRINT 

RT 2 : 

0 | NEXT 2 


455 PRINT RT 21 0 h FOR: i = 1 
TO 30 PRINT HT 21 i s NEXT i 
470 PRINT RT 21.31 J FOR i=2 
O TO 1 STEP -I. PRINT RT 2.31: 1 

. NEXT i 

4'5 PRINT RT 0 : 3I T' FOR i =30 
TO I STEP -1: PRINT RT 0 , i : * 
NEXT i 
495 RETURN 

1:00 KIM rr 4 K B S P C i* M 4 - 

510 SEEP 1 ...16 : BEEP I s 12 
520 BEEP = 5 •. 25 : FOR X =23 TO 17 
STEP -0 5 : BEEP * 1 , X : PRUSE 2 : N 

EXT x 

545 RETURN 

ISO kiH 4 4 Con qraiu L ations -4 
555 RESTORE 570 

560 RERD n P : BEEP O40 = 25.:P : IF 

n:0 THEN 90 TO 550 

570 DRiTR 1:12:1:14:1; 15 .: 2 1T2: 


572 DRTR 1 .. 17 : 1... 15 .: 1,17 ... 2 ; . 19,2 , 
5 : 14- 

574 DRTR 1 ; 14 -. 1 : 15 ; 1 ... IF ... 1 s 5 ; 21; 
0 = 5.19 

576 DRTR 1 . 19 ; 1; 1"' ... 1 ... 17 ... 1... 15 , 1 
14 ... 1... 15 ... 3 .. 17 
550 DRTR O . O 
595 RETURN 
999 REM 

1000 REM 4* INSTRUCTIONS 44 
1010 REM 

1050 PRP'ER 5. INK 1 • CLS 
1050 i_ET 1=3 

1070 RESTORE 3000: RERD i$ 

1050 LET i =i.4l: LET Li=LEN i $ 
1090 FOR i = Li TO 1 STEP -1: PR IN 
T fr~ l . 1; 1 5 ( 2 TO > : NEXT i 
1095 IF 2 $ :• : THEN beep =1:12 

1100 RERD 2 5 IF iiU) THEN 

GO TO 1050 

1110 Hi in$ = ;t nrass any Key to co 
n a 2 nue = = , 11 GO SUE 300 

1999 REM 

2000 K4M 44 Set UP puzzle 44 

2001 REM 

2050 4ET n i =4 *f I NT ( RND±3) 

2050 DIM tini) 

2070 FOR 2=1 TO 02 

2050 LET l( 2 )=54INT (PND414) 

2053 L4i used =0 
2055 FOR .1=1 TO 2 -I 
2057 IF l(j ) =1(i ) THEN LET Used= 
1 

2059 NEXT j 

2091 IF used =1 THEN GO TO 2050 
2095 NEXT 2 

2100 LET neach =20 4 INT (RND4Tf) 
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2120 Liz? Leg to 1=0 

2140 fqr i= i TO ni 

21*0 Liz ’ legtot=Legtot * neachel 

(i ) 

2160 NEXT i 

2999 REM 

3000 KizM ** 'Display screen ** 

3001 REM 

3050 BORDER 3: PRPER 4: INK 0: C 
L5 

3055 GO SUB 450 

3060 PRINT RT 2:20; “LEGS ERCH : 

3070 FOR i=2 TO 16 

3060 PRINT RT 1:1; INK 4; :! 

PRPER 5 ; INK 0; ;s : i= : 

RPER 4 : INK 4 ; " 

3090 NEXT i 

3100 LET a $ = • LET b*= ; 4 4 :; 

3200 FOR i=l TO ni 
3210 LET L=i*2 * 2 

3220 PRINT PRPER S,: INK 6.; RT 1,4 

;a s;Ri 1+1:4;bS 

3230 PRINT RT t ..22.; I U ) 

3240 NEXT i 

3260 PRINT RT IS,1;"There are , 

L e q t o t ; !S Le q s a L t o qe t h e r 

3270 PRINT RT 19,1;"Press ENTER 

to try your answer 11 

3300 FOR i=l TO ni 

3310 LET L=i*2 + 2 

3315 LET f=1 

3320 FOR c =4 TO 15 

3330 GO SUB 3600: REN Print inse 
r t 

3340 IF INKEYS M “ THEN GO TO 400 
0 

3350 NEXT c 
3355 LET f= 0 
3360 FOR C =1 TO 3 
3370 GO SUB 350.0 

3360 IF INKEYS ;• THEN GO TO 4O0 
0 

3390 NEXT c 
3400 NEXT i 
3*00 GO i0 3300 

3600 RtM * nrint inse c t a t t , c 
3510 REM f decides whether legs 
f L a s h o r n o t 

3520 PRINT RT Ul,c; PRPER 5; IN 
K 6; t; :i ; FLRSH f ; b$ 

3530 BEEP .02:25 

3540 PRINT RT l,c; PRPER 5; INK 
S,:- 1 11 ; a* 

3550 BEEP s 02:0 
3590 RETURN 

3999 REM 

4000 hlM ** Get answer ** 

4001 REM 

4050 INPUT “How manq of each-, th 
en? ts ; LINE r $ 

40 70 LlT ans=URL r $ 

4100 IF ans=neach THEN LET n$ = :: U 
e 11 coun ted - y ou ' r e RIGHT 1 “ : G 
0 SUB 350: GO SUB 550: RRUSE 0 
4120 IF ansoneach THEN LET _ 
Sorry - you missed one ! :s GO 
SUB 350: GO SUB 500 PRUSE 0 
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41*0 Lt! m$ = “Do y ou wan t ano ther 
QC T (Y/N) GO SUB 3S0 
4-170 IP k "y” THEN CLS GO TO 
c, Ci q a 


4-150 

0 

4190 

ir an 

3 =naa ch THEN 

; j _ ; n 2. 0 0 

Qf; rn 

5000 


6999 

REM 



7000 

Kaf-i fr Generate UD 

G ' 3- a 7- 

7001 

REM 



7050 

RESTORE 5200 


707 0 

FOR i 

=0 TO 7; herd 

X: POKE 

USk 

3 *f I : 

X : NEXT i 


7050 

FOR i 

=0 TO 7 RERD 

X: POKE 

U 5 P. 

5 b -r i : 

X: NEXT i 


5000 

DRTR 

INSECTS :: , 

5010 

DRTR 

±n this puzz 

l a y o u h a 

V £ 3 

e: v £ r a L 



5020 

DRTR 

insects, esc 

h w i t h a 

d i f f a r 3 n t :: 



5050 

DRTR 

“n um b£ r o f lags, * h £ r 

£ i 3 

t h £ 



5040 

DRTR 

3 an*e nurn ba r 

o f e a c h t 

ype 

D f -• 



5050 

DRTR 

;; bug , :s , 51 


5050 

DRTR 

"Us tall you 

the numfee 

r o f 

t-tS 3 :l 



5070 

DRTR 

11 on each typa 

a n d t h e 

t o t a 

i s; 



5050 

DRTR 

“number of la 

g s o n a 11 

the 




5090 

DRTR 

'• i n 3 e c 1 3 r Yo u t a L l u s 

h o w 

rn a n y s : 



5100 

p . ' 

DRTR 

•'of each ty pa 

t h a r a a r 

5110 

DRTR 

11 88 , 88 Si mp la , 

ah? watt 

5120 

DRTR 

ll 'C) s ■ 


5200 

DRTR 

BIN 01100110 


5210 

DRTR 

SEE 


5220 

DRTR 

5 IN 10011001. 


5250 

DRTR 

BIN 10011001 


5240 

DRTR 

255 


5250 

DRTR 

BIN 10100101 


5260 

DRTR 

BIN 01111110 


5270 

DRTR 

BIN 00111100 


5500 

DRTR 

£04,=04,204,204,204 , £0 

4.: 204,204 



89 y© 

GO ! 0 

9999 


9000 

INPUT 

“rile to save ? " LI 

NE f 5 



9010 

5 RUE 

*"!R“ ; i; f % 


y0H0 

GO TO 

9395 


9100 

INPUT 

"Hite to e ra 

3 a ? 85 L 

INE 

f 4 



9110 

EPR5E 

“® ” 1, f $ 


9120 

GO TO 

999y 



Author: E. S. Pledger 



Seven Up 



In a similar vein to the Towers of Hanoi, the aim is to 
move all the numbers from the centre tube to either of the 
outer tubes, without putting a larger number 
on a smaller one. 


10 GO SUB 430 

20 LET H=0: LET 1=9: LET P=0 
LET T =1: BORDER 0: PAPER 0: INK 
C L 5 

30 FOP n =19 TO 21: PRINT PT n ; 
m PPPEP 0: 

s: • NEXT n 

40 FOP n =16 TO 9 STEP -l. PRIN 
T PT n : 5 : PPPEP 7; INK 5; : I I ; P 
T n , 14; I 1 1 ; PT n ,23; I § K PT n, 
O : PPPEP 0.; 'KPT n 5.; :: 

Si ; P i n : 17 ■ s> ; P • n .. 25 ; 

. NEXT n 

50 PR INT PT 19,5 IN K 5, PPPEP 
0 ; = 3BSZ:x : p i 19.14 , =*= ; PT 19,23 

50 FOR n=0 TO 4: PRINT PT n , 0 ; 
PPPEP 5 ; :s 

; NEXT n: PRINT PT 3, 
5; PPPEP 5; INK y; "1KTPB 15; 2 :: 

. TP5 24K ; 3‘ 

70 PRINT PT 1,2.; BPIGhT 1.; INK 
0; PPPEP 5j 15 5EUEN UP PUZZLE"; 5 
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RIGHT S; “ TURN No » “ T 

80 FOR n =1 TO 7: PRINT RT n+11 
.15 . RARER n; INK 9; n: NEXT n 
90 GO su6 570: GO SUB 498: RRI 
NT RT 5,3: 'PROM WHICH TUBE DO YQ 
U WRiNT TO TAKE A NUMBER 

180 PRINT AT 1,25; INK 0j RARER 
6 : T 

110 LET T=T + i 
128 lET A$=INKEY$ 

138 PAUSE 8 

148 IF INKE Y $< >“1” AND INKEY$<> 
"2“ AND IN KEY $ \ > "3“ THEN GO TO 1 
48 

158 GO TO 158 

160 IF INKEY$ = "1” THEN LET A =6 
178 IF INKE Y 5 = “0 “ THEN LET A=15 
188 IF INKEY 5 = “3" THEN LET A=24 
198 IF ATTR (18,A) >=62 THEN GO 
SUB 578: PRINT AT 6,8; ‘TUBE IS E 
MATY ! : BEEP =1.12: BEEP =1,36: 

FOR N=1 TO 158: NEXT N; BEEP =2 
,12: GO TO 98 
288 FOR N = 12 TO 18 
218 IF ATTR (N , A) =15 THEN LET 0 
5=1“ : PRINT AT N , APAPER 7.; “ 

. LET X =N: LET Y =A: LET 55=0$: L 
ET P = 1: GO TO 298 
228 IF ATTR (N . A) =23 THEN LET 0 
5 = " 2 PRINT AT N , A PAPER 7, “ 
LET X =N: LET Y=A: LET 55=05: L 
ET P =2 GO TO 298 
238 IF ATTR (N , A) =31 THEN LET 0 
5 = “3 Y PRINT AT N . A ; PARER 7; " 

: LET X=N: LET Y =H: LET 5 5=0$' L 
ET P =3. GO TO 298 
24-8 IF ATTR (N, A 3 =32 THEN LET Q. 
5= 4Y PRINT AT N A; PAPER 7“ 

: LET x =N: LET Y=A. LET 6 5=05: L 
ET P = 4: GO TO 298 
258 IF ATTR (N,A)=48 THEN LET O 
5=“5“. PRINT AT N , A; PAPER 7;“ 
LET X =N: LET Y =A LET 5 5=05: L 
ET P = 5 GO TO 290 
268 IF ATTR (N,A)=48 THEN LET 0 
5 = ' 5“ PRINT AT N A; PAPER 7; 

. LET y=N: LET Y =A LET 5 5=05 L 
ET P = 5 GO TO 298 
278 IF ATTR (N. A) =56 THEN LET 0 
5= 7“ : PRINT AT N , APAPER 7," 

. lE^ X=N: LET Y=A: LET 55=05: L 
ET R = 7 GO TO 298 
288 NEXT N 

298 GO SUB 578: PRINT AT 6,8,“1 
NT0 WHICH TUBE? 11 

3 8 8 P RI NT AT 21,2,: IN K 7; “THE_ N 
UMBER BEING MOLED 15 PAPER f; 
INK I; 0 5 

318 LET A5=INKEY5 
328 PAUSE 0 

330 IF INKEY$<>*‘1“ AND INKEY5 > 
“2 “ AND IN K E Y $ o*'3“ THE N G 0 ! 0 3 
38 

348 IF INKEY5 = “1“ THEN LE; H =6 
358 IF INKEY5=“2” THEN LR! A = l5 
368 IF INKEY5=“3” THEN LE i A=h4 
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370 PRINT PT 21,2.; “ 

330 FOR P = 13 TO 12 STEP -1: IP 
HTTP (P , R) ;• =52 THEN PRINT PT P P: 
; INK I.: PPPEP P; 0 5 BEEP .02,4-4 
GO SUB 400; 50 TO 38 

390 NEXT P 

400 IP RTTP (P + 1, A)=6 THEN PETU 
RN 

410 IP ATTP (F , A) > HTTP (P +1,A) 
THEN BEEP .2,12: BEEP =2,36: GO 
5UB 670: PRINT AT 6,0 "’ Y0U TRIED 
TO PUT A LARGER NUMBER ON TO 
P OP A SMALLER ONE': POP 0=1 TO 
200: NEXT 0: BEEP .2,12: PRINT A 
T F A, PAPER 7; “ “ : PRINT AT X.Y 
PAPER P, INK I;S$: LET N=N + 1 
420 RETURN 

430 PAPER S. INK 0: BORDER 6: C 
LS 

440 PRINT AT 2,10; ’* " " SEUEN UP “ " 

450 PRINT ""THE AIM OP THE PUZ 
ZLE IS TO MOUE”' TAB 1,"ALL THE 
NUMBERS PROM THE CENTRE”' TAB 3; 
“TUBE TO EITHER OP THE OUTER”" T 
AB 1;“TUBES,WITHOUT PUTTING A LA 
AGER”" TAB 1;“NUMBER ON TOP OP A 
SMALLER ONE =" 

450 PRINT "“YOU SHOULD THEN HAW 
E THE COLUMN”" TAB 2;“OP NUMBERS 
IN THE SAME ORDER”""TAB 4;“BUT 
IN A DIFFERENT TUBE.” 

4 7 O PRI NT 3 8.; AT 8 , 3” PR E 5 5 A NY 
KEY TO CONTINUE.” 

480 PAUSE O: RETURN 
430 IP HTTP (12,5) =15 AND ATTR 
(13,6 ) =23 AND ATTP (14 = 5) =31 AND 
ATTR (15,6) =32 AND ATTP: (16.6) = 
40 AND ATTR (17,6)=48 AND ATTP ( 
IS,5)=56 THEN POR N=1 TO 150: NE 
XT N: CL5 : GO TO 528 
500 IP ATTR (12,24)=15 AND ATTR 
i13,24)=23 AND ATTR (14,24)=3I 
AND ATTR (15,24)=32 AND ATTP (16 
,24)=40 AND ATTR (17,24)=43 AND 
HTTP (18,24)=56 THEN PAUSE 180 
L1— —■ U U • L' *Z’ •£• 

510 RETURN 

520 PAPER 6: INK 8: BORDER 6: C 
LS PRINT AT 18,11;“WELL DONE 
TAB 4;“YOU DID IT IN ”;T;“ MOU 
ES 

5 3 8 P RI NT AT 21,8.; ” U 0 U L D Y 0 U LI 

K t H N 01 HtH G 0 7 > / N ’ ‘ 

548 PAUSE 0 

558 IP INKEY $ = ” N ” OR INKEY 5 = T; ” 
THEN STOP 
560 RUN 

578 PRINT AT 5,8, 


: RETURN 

580 CLS : SAUE “SEUEN UP” LINE 

1 


Author: D. Wilson 



Word Hunt 



This puzzle is not difficult, but you may have to do a bit 
of searching. Scattered around the screen are the letters 
a short English word. Each letter may be repeated more 
than once. All you have to do is find how many times the 
word can be made up from the letters on the screen. Each 
letter can be used more than once. 


1 HEM t********************* 

2 REM 

3 REM WORD HUNT 

4- REM 

5 HEM ±**±****±** + ±* + *ir±*±-i:i: 

5 REM 

100 DIM 81 $ < 30:< 

210 RRNDOMIZE 

235 GO TO 1000 

300 heM ** Message ** 

310 PRINT PT 20.1: BRIGHT 1; PL 
RSH 1; PAPER 5; INK 0; 81$ 

320 GO SUB 400 

330 IP INKEY SO"" THEN GO TO 33 

0. 

335 LET it. $ = INKEY$: IP *.$ = ”*' THE 
N GO TO 335 

337 IP *.$>=”R“ RND ie.$<=’’Z” THEN 
LET it. $ = CHR $ «00DE i K $) -32 3 
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340 PRINT PT 20., 1; “ 


345 RETURN 

3 6 0 REM * * In s t r ij cti o n ** 

360 PRINT P.T 20,1; BRIGHT 1 PP 
PER 6 : INK 0 ;® 5 
395 RETURN 
400 REM ** Rips ** 

410 FOR i=i TO 2 

420 BEEP O,05,50: PAUSE 2 

430 NEXT i 


445 RETURN 


460 RtM ** Draw bc’der *4 
460 PRINT PT 0,0; ,: P . FOR i =1 T 
0 20: PRINT PT i , 0; * ” : NEXT i 

465 PRINT PT 21,0; V’: FOR i =1 
TO 30: PRINT PT 21,i;: NEXT i 
470 PRINT PT 21:31; d FOR i=2 
0 TO 1 STEP -1: PRINT PT i =31;“ 1 
“: NEXT i 

475 PRINT PT 0,31.; 'T': FOR i =30 
TO 1 STEP -1: PRINT PT 0 , i ; 

NEXT i 
495 RETURN 

600 kEM t* Raspberry ** 

510 BEER 1,16: BEEP 1,12 
520 BEEP =5,25: FOR X =23 TO 17 
STEP -0 = 5: BEEP .1 , X: PAUSE 2: N 
EXT x 

545 RETURN 

660 REM ** Con g r a tutalio ns ** 
555 RESTORE 570 

560 READ P,p: BEEP 0x0=25,?: IF 
n >0 THEN GO TO 560 
570 DPTP 1,12,1,14,1 ,15,2,1" , 2 = 
5,12 


572 DATA 1,17,1,16,1,17,2,19,2= 
5., 14 

574 DATA 1,14,1,16,1,17,1=5,21, 
0 = 5,19 

575 DATA 1,19,1,17,1,17,1,15,1, 
14,1,16,3,17 

560 DATA 0,0 
595 RETURN 


999 REM 


10 0 0 k 6 M xt t 5 h o "i i n s t r u c t i o n s 
1001 REM 


1050 RESTORE 3000 
1060 PRINT PT 2,0; 

1070 READ i $ 

1080 IF i.Jji (i .i =“©" THEN GO TO 120 
0 

1100 PRINT is 

1110 BEEP = 2,INT (RND*25) 

1140 GO TO 1070 

1200 i_6! m * = ‘ : Kress any Key to co 
nt i nue = = =”: GO 5U6 300 

1999 REM 

2000 rEM ** Generate puzzle ** 

2001 REM 

H04O i_6 ; ;» $ = Oh 0 0 sing t h e « 0 r d n 
OMi GO SUB 350 

2050 RANDOMIZE 
20 ,-'0 !_6 ! n =9riN ! (hND«3 } 

2080 DIM s.$ (n) 

2110 RESTORE 8200 

4120 LET Z = 1 x-1 NT iRND 410) 

2130 FOR i=1 TO Z 
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2135 

REPD w $ 


2140 

NEXT i 


2150 

LET s*=w$ 


2160 

POP: i =LEN W $ +1 TO n 


2170 

LET z = 1 -rINT <RND*4> 


2150 

LEI s $ (i ) =w $ i'.z ) 


2190 

NEXT i 


2280 

Lti ways=8 


2 !£ c! 0 

POP: a =1 TO n 


2230 

POP: b=a rl «0 n 


2240 

r OR c = b t 1 FO n 


2250 

POP: d = c+i TO n 


2250 

Ir s $ • a ) < >s $ ( b ) PND 

s $ (a ) < > 

S 5 i C ) 

hND s$ (a ) < >s $ (d ? P;ND s $ (b) 

< > s i «c '■ RND s $ (b ) < > s $ »: d i 

PND s $i 

r ' •; ■ • ■=. 

5 : d ) THEN LET ways= 

w a ys-rl 

2290*" 

NEXT d 


2300 

NEXT C 


2310 

NEXT b 


2320 

NEXT a 


P Q Q Q 

REM 


3000 

KtM ** Display pwzz 

le *4 

3001 

REM 


3050 

BORDER 3: PPPER 7 

INK 0: C 

LS : 

GO SUE 450 


3070 

POP: 1=1 TO 19 


3050 

POP: c = 1 TO SO 


3090 

PRINT PT l,c ; PPPER 

INT CRN 

D -r 5 ■ ; 

:i :: 



3100 NEXT c 
3110 NEXT L 

3170 PRINT PT R..2; PRPER 2; INK 
8; : -UORDHUNT- 5 ’ 

3150 PRINT PT 4,2; PPPER 2; INK 
8; -Uo r d to ? ind i s : 15 ; v $; S1 15 
3200 PGP i=1 TO n 
3210 LET l=i+INT (RND*19) 

3220 LET c=l+INT (RND*30) 

3230 IP SCREENS U 8 c) > 11 15 THEN G 

0 TO 3210 

3240 PRINT PT l »t ; ODER 1; PPPER 
5; INK 9; s $ ( i ) 

3250 NEXT i 

330.0 LET "Press ENTER to try 
your answer" 

3310 GO SUE 350 

3400 BEEP .l.INT <RND*25) 

3410 PPUSE 40 

3420 IP INKEY* ; :t:i THEN GO TO 400 
0 

3430 GO TO 3400 

3999 PEN 

4000 REH ** Get answer ** 

4001 REM 

4050 INPUT PPPER 5; INK 8; "How ® 
any ways to do it ? ”; LiNt r$ 

4055 IP r $ = ■“•■ THEN GO TO 4050 

4056 LET OK=1 

4057 POP: i=l TO LEN r$: IP r$(r) 

< :: 0 :: OR r $ ( i ; > S! 9 : THEN LET o K =8 
4055 NEXT i 

4059 IP 0 K= 0 THEN GO TO 4050 
4050 Lti i answer =UPL r$ 

4070 LET 0 K=0 

4850 Ir answer=ways THEN LnT oK= 
1 

4499 REM 

4580 kEM ** Che c K answer ** 
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4-501 REM 

4550 IP o K =0 THEN LET ffl$ = : '5orru 
- you s;us t Lo ok harder I " - &n j 
B_350: GO SUE 500: PRUSE 0 
45 (0 IP n K -i THEN LET st i = " fibs0 lu 

te ty right - a L L found ! " GO SU 

5_358:_GO SUB 550: PRU5E 0 
4550 Ll i at$ = "Uant another Look t 
(Y/N) “ GO SUB 300 
4590 If Ki<:>“y" THEN PRPER 7 IN 
K 0: CL5 : GO TO 9935 
4600 i?- o K = 0 THEN GO TO 4000 

4510 If 0 K = 1 THEN GO TO 2000 

7993 REM 

5000 RtM ** Instruction data + e 
§001 REM 

5010 Dhi R “ WORD HUNT" , 

5020 DR,‘fi "This puzzle is not di 
•" f i r {J t . 15 

SOSO DRTR "but you may have to d 
o a bit of" 

504u DR ! R “searching-. 

8050 Dh iR "Scattered around the 
screen are" 

5050 DR;R “the Letters of a s k nr 
t Lnglish" 

50 f'0 L :, rH! R “ w o r d > Ea c h l e 11 e r a 
y _ be " 

5li5 0 DRTR “repeated atore than on 
ce = " 

5 u y 0 l j hT R " fi L L y o u h a v e t o d o i s 
find how“ 

510.0 DRTR 11 at any t i st e s t h e u o r d c 
a n be “ 

5110 DRTR “atade up frost the ~ 1 1 
ersonthe" 

5120 DRTR "screen. Each Letter 
can be used" 

513 0 DRTR “store than once,"-." 

514 0 Dfit h “N o w t L ooK care f u L L y = , 

: 

5130 DRTR "©" 

5200 KtH t* words *t* 

§210 DRTR "RIDE" , "HUNT" , "GIRL" - 
WHflt" , " ! iLE" , "LOCK" , "GRTE" , "NRIL 
","BONE","SURN" 

5400 kEM -a* Data for score cns-it 
i o n s 

8410 DRTR 5.11:10.15 
5420 DRTR 3 15 12 ■ 19 
8430 DRifi 5.13,15■IT 
5440 DRTR 3.13,5,17 
5450 DRTR 15 13 , i2-.il 
5 9 3 3 G 0 T 0 3 R Q 3 

9000 INPUT “Fi te to save - it 

NE f $ 

3010 5RUE *"a>“; li f $ 

3020 G 0 T 0 R R 9 R 

3100 INPUT "File t.o erase r- « : i 
INE f$ 

3110 ERRSE “at".; 1; f $ 

3120 GO TO 9333 

3200 PRPER 7: INK 0: ’LS Qf! T:1 
Q Q Q R 


Author: D. Curran 



Coloured Tiles 



This program is a type of two-dimensional Rubik’s Cube 
puzzle. The object is to rearrange the jumbled tiles to 
create columns of the same colour and these columns must 
be beneath the corresponding colour in the single row of 
colours at the top of the screen. The characters to the left 
and top of the tiles are the keys to be pressed to move that 
row or column left or up by one tile. For example, if “6” 
is pressed the whole column is moved up one place with 
the top tile being transferred to the bottom of the column. 


10 POKE 23558.5: DIM C (28) : Li 
T EX = 0 . LET MO=3 

20 LET 9 £ = 11 COLOURED TILES” : LE 
T Y =7: LET X=0: GO SUE 3000 

30 LET 9$ = ;l EY SEE KPN LEE 13S4 $: 
LET Y=5: LET X=2: GO SUE 9000 
40 LET P 5 = : PRESS” : LET Y =0: LE 
T X -10: GO SUE 9000 

50 LET 3 5 = 11 1 FOR JUMBLED UP TI 
LES'Y LET Y =2: LET X = 12: GO SUE 
3000 

50 LET 9£ = ”2 FOR ThE COMPLETED 
PPTTERN”: LET Y=2: LET X=14: GO 
SUE 3000 

70 LET B*=INKEY$ 
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30 Ir *$=“1“ THEN PRINT AT 12, 
3.; FLASH 1; OVER l; ” ; BEEP , F, . 

25 _ GO TO 150 

90 IF B$="2” THEN LET EX = 1 PC 
1NT Ai 14,3.; FLASH 1; OVER 1:“ 
BEfcP ,6,25: GO TO 258 
100 GO TO 70 

1R0 rOR F = 1 TO 28: LET C(F!=38- 
NEXT F 

ISO FOR N = 1 TO 4: FOR F=8 If: F 
170 LET TI=INT (RND+28)+1 
130 IF C (TI) < >30 THEN GO TO 170 
190 L*T C(TI)=F: NEXT F: NEXT N 
200 GO TO 1000 

2*0 rOR N =0 TO 3: FOR F=0 Tn F- 
LtT C ( (N*7) +F + 1) =F : NEXT F: NFV 
T N 

260 GO I 0 1000 

1010 CL5 : LET A$ =”COLOURED TILE 
5": Lfc! 7 = 7: LET X=0: GO SUB 900 
O 

1015 FOR N= 0 TO 6: PRINT AT 2,6 + 
(N+2) PAPER N.; " PRINT AT' 3 , 

8+(N*2); PAPER N;" NEXT N 

1020 rOR T =0 TO 3: LET ROUi = (T + 7! 
"Pi • L*: ! R = *+'.! + 2 ! : GO *UB +000' 
NEXT T 

102* LET CHLEN = 18: LET RES=9900- 
GO SUB 1200: PRINT AT 21.0:” 
1030 PRINT AT 2 ,22; "MOVES=“ 

103* PRINT AT 8,23;“PRESS";AT 9, 
23» “ "M" '• TO“ AT 18,23 ; ‘’ABORT’ 
1840 PRINT AT 2,28;MO 
1045 LET B $ = INKEY $ 

1047 IF B$ = ’’ H ” THEN BEEP =1,10 


BEEP 

.4,5: CL5 

G 0 

TO 

S090 


i 050 
ET R 

IF B$=”l” 
=8: GO TO 

THEN 

2000 

LET 

20U=1: 

L 

1055 
ET R 

IF B$ = ’ 0" 
=10: GO TO 

then 

2000 

LET 

Roy =5: 

L 

1050 

let 

Ir B$=“A“ THEN LET 
R = 12: GO TO 2880 

R0U=15 


1055 
LET i 

IF Bf=”Z” THEN 

R = 14: GO TO 288S 

LET 

! 

R 0 y =22 


1055 
0 TO 

IF 5 $ = ' 4 1: 
2500 

ThEH 

LET 

COL = 1: 

G 

1057 
0 TO 

IF 5$ = i, 5 !t 
2500 

THEN 

LET 

COL=2: 

G 

1055 
0 TO 

IF 5$ = ; 1 5 1 ‘ 
2500 

THEN 

LET 

COL=3: 

0 

1070 
0 TO 

IF 5$ = ! 1 7• ‘ 
2500 

THEN 

LET 

COL=4: 

G 

1075 
0 TO 

IF 5$ = :; 5 s5 
2500 

THEN 

LET 

COL=5: 

Q 

1050 
0 TO 

IF 5$ = 11 9 “ 
2500 

THEN 

LET 

COL=5• 

G 

1055 
0 TO 
1090 

IF B$=”8” THEN 
2588 

GO TO 1848 

LET 

COL=7: 

G 

1210 

RESTORE RES FOR G: 

=8 TO DHL 


RN: READ D$: READ M: READ N: PRI 
NT INK. 6H i 21,0 ; D $ 

1220 FOR 0=1 TO 6: FOR F=1 TO 6 
1240 IF pQINI iO,F>=l THEN BEEP 
= 001,*8 : pLO! M+8 +(0+2! ,N + 8+(F+2 

! 

12*0 NEXT F: NEXT 0 
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1250 next G 
1270 RETURN 

2000 LET 5P=C(R0U): FOR N=ROU TO 
ROW+5: LET CXN)=CCN + i): NEXT N: 
LET C (R0U45) =5P 
2010 GO SUE 4000 
2020 GO !0 3000 

2500 LET 5P=C(C0L): FOR N=COL TO 
COL414 STEP 7 : LET C (N) =C (N+-7) : 
NEXT N: LET 0 (C0L421) =SP 
2510 GO SUE 4100 

3000 BEEP .05,30: LET M0=M0+1: I 
F EX=1 ThFN GO TO 1040 
3005 FOR R =0 TO 3: FOR 0=0 TO 6 
STEP 2 

3010 IF C((P*7)4(041)) <>0 THEN G 
0 TO 1040 

3020 NEXT 0: NEXT P: GO TO 5000 
4000 FOR N =2 TO 14 STEP 2: PRINT 
RT R : N45 •: PPRER 0 CROU-14 (N /2) ) j 
" : PRINT RT R 41 : N 4 5 ; PRPER C( 
ROU-14 (N/2) ) ; !! “ : NEXT N 

4010 RETURN 

4100 FOR N =2 TO 8 STEP 2: PRINT 
RT N4S , (COL±2) 45; PRPER 0( (74( (N 
/2) -1) ) 4COL) ; " : PRINT RT N+7, 

(COL42)45; RRPER 0( (74( (N/2) -1) ) 
4COL) ; " :! : NEXT N 

4110 RETURN 

5000 CLS : LET R$ = ts CONORRTULRT10 
NS!": LET Y=5: LET X=9: GO SUE 9 
000 

5040 LET R$ = 1: N0 OF MOUES=": LET 
X =11: LET Y =5: GO SUE 9000: PRIN 
T RT 11: 19; MO : LET R$ = SS RRTING- : 

LET X = 13: LET Y=5: GO SUB 9000 
5050 IF MO <=75 THEN LET R$="RMRZ 
ING ! * 5 : LET X = 13: LET Y = 13: GO SU 
E 9000 

5050 IF MO>=75 RND MO < =100 THEN 
LET R $ = " GOOD " : LET X = 13: LET Y = 1 
3: GO SUE 9000 

5070 IF MO>=101 RND MO < =200. THEN 
LET R$ = ”NOT 5RD" : LET X = 13: LET 
Y=13: GO SUE 9000 
5050 IF MO >=201 THEN LET R$="ROO 
R" : LET X =13: LET Y=13: GO SUB 9 
000 

5090 LET R5 = "TRY RGRIN? (Y/N) :s : 
LET X =21: LET Y=6: GO SUE 9000 
5100 IF INKEY$ = :s Y‘ s THEN BEER s 5, 
19: CLS : GO TO 1 
5110 IF INKEY $ = *‘N 81 ThEH STOP 
5120 GO TO 5100 

9000 LET LENGTH=LEN R$: FOR N=1 
TO LENGTH: PRINT RT X /Y4N; R$ (N) : 

BEEP s 005:32: NEXT N 
9010 RETURN 

9900 DRTR l; 4 ;1 : 5 : 14 :s 1 S! : 5,12 , •-5 :; , 
10 14 : “0 S: : 5 : 10 : ‘‘S" : 12 14 : "9“ , 5,5 
.. “7“ ; 14 .. 14 .. SS Z” : 5 : 5 : !J S !! : 15 : 14 : “9" 
, 15 ; 14, 1 0 : * ,20 : 14 
9999 SRUE "TILES" LINE 1 


Author: S. Lee 



Letter Bingo 



Here is a bingo game with a difference. Instead of 
numbers, you have cards with letters on them. Instead of a 
caller, you just have to go through the alphabet 
backwards. Match the letters on the cards as you find 
them. One of the cards will always be matched first. You 
have to find out which one it is. 


1 WfcM HHfTTHHHHTtHHi 

2 REM 

3 REM LETTER BINGO 

4 REM 

w> REM *** ****** + ****#**•*••*•*•*■*- 


5 

REM 


100 

DIM rn 5 >30 ; 


210 

randomize 


295 

GO TO 1000 


300 

REM ** Message 

-+• -+■ 

310 

PRINT PT 20:1; 

BRIGHT 1; PL 

RSH 

1: PRPER 5; INK 

0 ; m S 

320 

GO 5U5 400 


330 

& 

IP INKEYS < > :5:: 

THEN GO TO 33 

:j R 

LET K 5 = INKEY S 

IP KS= :ss THE 

N 30 

TO 335 


; “7 

IP K. S > = :: H 11 RND 

K$ = ;: Z‘ : THEN 

let 

K S=CHR4 (CODE 

(K.S) -32) 
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340 PRINT PT 20,1; 


345 RETURN 

0c 0 Ktiti 4 4 m s t r u c t i o n 44 
050 PRINT PT 20.1; BRIGHT I PP 
PER 5; INK 0 ;ms 
095 RETURN 
400 REM 44 RipS 4 4 
410 run i=i ! 0 2 
420 EEEP 0=05,50- PPU5E 2 
4 00 N ll X f i 
4^5 RETURN 

4 R 0 RrM 44 Dram border 44 
450 PRINT PT 0:0 W FOR i =1 T 
0 20: PRINT PT i.0: | NEXT i 

455 PRINT PT 21.0 h FOR i=1 
TO 00: PRINT PT 21 : i = NEXT i 
470 PRINT PT 21 01 J FOR i=2 
0 TO 1 STEP -1: PRINT PT i,31; : I 
. NEXT i 

475 PRINT PT 0,01 : T* BOR i=00 
TO 1 STEP -I* PRINT PT O, i ; 

NEXT i 
495 RETURN 


D00 rCfl 4 4 K3SP b£ r r M 4 4 
510 EEEP 1,15: EEEP 1,12 
520 BEEP =5:25: FOR X =20 TO 17 
STEP -0,5: BEEP =1,X: PAUSE 2: N 
EXT x 

545 RETURN 

st?0 HtM 4 4 Conqra.tu la t i ons 44 
555 RESTORE 570 

550 REPD n s p: BEEP n±0=25.p IF 
n>0 THEN GO TO 550 
570 DPTP 1:12.114,1,15,2,17 2= 
5 : 12 

572 DPTP 1.17-.1: 15,1,17,2,19,2 = 


5 -. 14 

574 DPTP 1:14:1:15,1,17,1=5,21, 
0 = 5: 19 

575 DPTP 1 : 19 : 1 : 17 : 1,17,1,15,1 , 
14,1,15,3,17 

550 DPTP 0:0 
595 RETURN 


599 REM 

700 hrM 4 4 ho u t i n e t o d r a m c a r d 


44 

701 REM 

710 PRINT PT L-rO, c-1; on urn 
720 PRINT PT L,C i— 

730 FOR X =1 TO 5 

740 PRINT PT l 4X , c ; t: i 

750 LET fill=INT CRND45) 

750 PRINT FN PAPER 7, 

CHk$ i c ( cnum . x )) r N fs i4-fiL L); 

755 PRINT | :: 

770 NEXT x ___ 

750 PRINT PT L 45 , Cj : === 

790 RETURN 
799 REM 

3 00 Htli function to give s ra 

n d o m co l o u r e d s p aces * * 

SSI rfm 

SIS DEF FN rin =CHR$ i 17) -fCHR- 
il-i-INT (RND *5) ) -f 

32S DEF FN f$ is) =(FN r $ i) +FN r $ 
i.! +FN r $ (> +FN r $n +FN r $ i) } i TO 

S ± 3 ) 
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Letter Bingo 


'=*99 HtH 

1 000 h tH 5ho w ins t r uction s 

1001 REM 

1050 RESTORE 3000 

1060 BORDER '3: PAPER 7 INK 0: 0 

L5 

1065 PRINT AT 2.0, 

1070 DIM i$(32): LET nets=25 
1080 READ is. IF iiil) > :i (cv THEN 
PRINT i5: BEEP ,1,n0 tS : LET H0 t 
S =n D tS-1: GO !0 1080 
12£0 Lei m$=“Eyes down - press a 
ny Key 5”: GO SUB 3s 0 

1999 REM 

2000 heM ** Generate puzzle a* 

2001 REM 

2 040 LsT m $ = “ 5 0 r t i n g 0 u t t h e c a r 
ds now,..": GO SUB 350 
2050 RANDOMIZE 
2060 DIM pi (26* 

2070 Le! cards=5: Le * csize =s 
2080 DIM c (cards.csize* 

2090 FOR 1=1 TO 25: LET p 5 Ci*=CH 

R$ (6 4 + i • : NEXT i 

2100 Le! ain =2 f : Le: min car d =0 

2150 FOR i=l TO cards 

2170 FOR .i = 1 TO CSize 

2180 LET c (i ,j)=65+INT (RND+25* 

2185 LET used =0 

2190 FOR K =1 TO j-1 

2200 IF c (i .K* =c (i ,j* THEN LET u 

s e d = 1 

2210 NEXT K 

2220 IF used =1 THEN GO TO 2130 
2230 NEXT j 

2300 LeT g 0 e s = 0 : Le \ f 0 un d = 0 : Le 

T apos ==';••• 

2320 Le i goes =goes +1: Le; ap 0 s =a 
p 0 s -1 

2350 FOR j=i TO CSiZS 

2350 Ir pi lapos* =CHh$ (c (i , j** 1 

HeN Lei f 0 und = f 0 urtd+1 

2370 NEXT j. 

2400 IF found resize THEN GO TO 2 
320 

2420 IF goes =min THEN GO TO 2170 
2440 IF goes in THEN LET ssin=go 
es : Lei si i n c a r d =i 

2450 FOR j =24 TO 12 STEP -1: BEE 
P .1,j: NEXT j 
2500 NEXT 1 

2999 REM 

3000 keM ** Display puzzle ** 

3001 REM 

3050 BORDER 2: PAPER 1 INK 8: 0 

LS 

3055 GO SUB 458 

3068 PRINT AT 1.2; PAPER 6; BRIG 
HT I;" LETTER BINGO " 

3180 FOR 1 =1 TO 2 
3120 FOR j=l TO 3: 

31e-0 Le 1 cnuSi = (i — 1 * *3 + j 

3160 LET l =3+ ( i -i* ^7 : LET C =4-*- ( j 

-1* =9 

3180 GO SUB 780 
3288 NEXT j 
3220 NEXT i 
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32t>0 Lt! a$ = “Hress tNi tw to s ns•>.< 
er SO SUB 350 
3300 Lt! apos =1 

3320 PRINT PT 13,3.; BRIGHT 1 . PR 
FtH Sp 5 • 3 p 0 S ! 0 3 p $ ( ! 0 3 p O £ - 1 

'} 

3330 BEEP .05,25-apos 
334-0 Liz ’ apoB= 5 posri: ir apos >25 
THEN let apos =1 

3350 IF INKEY$ = :! THEN GO TO 332 
0 

3999 REM 

4-000 wrM 7T yet answer rr 
4001 REM 

4050 INfu i 88 Hu m be r o f f i r s t c a r d 
matched ? sl ; LINE r$ 

4050 LET f 5 = r$-f :: 

40 •/ 0 Liz •: a ns ye r =CODiz (r $ i 1) ) -45 
4050 Ir answer =!» incard i HtzH Liz i 
o k = 1 

4090 Ir ans wa r < >m i n ca r d i HtzN Liz i 
o k =0 

4499 REM 

4t?00 KtzM Check answer ** 

4501 REM 

4550 IF Ok =0 THEN LET m$ = 88 URONG 
- <4 o u ** v e missed it ! 88 : GO 5Us 3r> 
0: GO SUE 500: RRU5E 0 
4570 IF 0 k = 1 THEN LET m * = 88 BINGO 
! Yo u ■' ve y on the prize i 88 GO 5U 
B 350 : GO SUB 550: PPJJ5E 0 
4&S0 Liz i m$ = 88 Do you yant another 
try 7* 88 : GO SUE 300 
4590 IF k$O ss y i: THEN PPPEP 7: IN 
K 0: CLS : GO TO 9999 

4500 GO !0 2*00 

7999 REM 

8000 kEM instruction data r + 
5001 REM 

5010 DPTR 18 LETTER BINGO 


5020 DPi h "Here is a bingo game 

y i t h a 

5030 DPTP 81 d i f ference « instead 
o f num be rs , 88 

5040 DP i P 88 y o u ha v e c a r ds y i t h L 
etters on 88 

5050 DPTP 88 1 he m = Ins te a d o f a c 
a L Le r ... you 18 

5050 DP FP 88 jus t h a ve t o go t h r o u 
g h _ t h e 

50 r0 l>P I P 88 alpha bet hac^^ards 
Match the 8; 

5050 DP i P 88 Letters on the cards 
as you 88 

5090 DP ! P 88 f i n d t h e m s 8 8 , 8 8 8 8 
8100 DP T P 88 One o f the cards yill 
alyays be 88 

6110 DP i P 88 m a t c h e d f i r s t s Yo u h 
a v e t o 

5120 DP ! P 88 f i n d o u t y h i c h o n e i t 

i S = 88 ''' " 


5130 DPTP 88 HO use I 88 
5190 DPTP 88 © :: 

5990 GO TO 9999 

9000 INPUT 8 Fi Le to save 

NE f $ 
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8813 5SUE *”»*•; 1 f $ 
88£8 GO ■u 9999 
9188 INPUT ”Fite to 

INE f $ 

9113 ERASE i ; f $ 

8128 GO TO 9898 
8208 PAPER 7: INK 0 
9898 


Author: A. Hemming 


erase v 

CLS : GO T 


Anagrid 



You are given a five-letter word and a grid of 5 X 5 
squares. You have to put the word or an anagram of it 
into the grid five times. No letter may appear twice in the 
same line - vertically, horizontally or diagonally - even the 
short diagonals. Some letters have already been 
put in to help you. 


10 

15 

100 

210 

295 

300 

310 

RSH 

320 

330 

0 

3 3 5 
N GO 

Let 

340 


hEM *** LtTTHH Gw.ID *** 
REM 

DIM 5 (30) 

RRNDOMIZE 

GO TO 1000 

hEM tt Message ** 

PRINT RT 20:1-: BRIGHT 1 
1; RRRER 5; INK 0 ; rn $ 

GO SUE 400 
IP INKEY 5 <> 


PL 


THEN GO TO 


LET K 5 = INKEYS: IP K$ = S5:: THE 
TO 335 

IP K 5 > = ”H " RND * $<= s: Z s: THEN 
K$ =CHR$ (CODE i k$■ -32) 

PRINT RT 20,1.;" 


345 RETURN 

3t>0 R*lM * * ins t r u c l i o n * * 
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Ana grid 


350 PRINT PT 20:1: BRIGHT I: PP 
PER 5; INK 0:ft $ 

395 RETURN 

400 wt M ** Rips -r -r 

410 FDR 1=1 TO 2 

420 BEEP 0 : 05 50 : PPU5E 2 

430 NEXT i 

445 RETURN 

4b 0 w.tli -r7T Drsy border ** 

450 PRINT PT 0:0; r FOR i=1 T 
Q 20: PRINT PT i:0; :: ! !s : NEXT i 
455 PRINT PT 21,0; :: k :s : FOR i =1 
TO 30 PRINT PT 21.1 Tsr NEXT i 
470 PRINT PT 21:31; d FDR i=2 
0 TO 1 STEP -1: PRINT PT i : 31.; | 

: NEXT i 

475 PRINT PT 0*31; s: T 5 FOR i =30 
TD 1 STEP -1: PRINT PT 0 : i .; 1 = 
NEXT i 
495 RETURN 

*00 hem ** riaspbzr ru ± + 

510 BEEP 1:15: BEEP 1,12 
520 BEEP ,5,25: FDR X =23 TO 17 
5TEP -D . 5 BEEP , 1 ... X : PPU5E 2 : N 
EXT X 

545 RETURN 

b *0 Hbli s* Cong r a tu La t i o n s + + 
555 RESTORE 570 

550 PEPD n -P : BEEP n*0 = 25,P IF 
n >0 THEN GO TD 550 
570 DPTP 1.12:1:14,1:15:2,17,2, 
5 : 12 


572 DPTP 1:17:1:15,1,17,2,19,2 = 
5 : 14 

574 DPT P 1:14:1:15:1:17:1,5,21, 
0:5.19 

575 D PT P 1,19:1:17:1:1^:1: 15,1 , 
14:1,16,3:17 

550 DPT P 0.0 
595 RETiJRH 

7@0 huM rr runctions to Locate 


q rid squ ar e s on screen 
710 DEF FN L(a)=5+2*3 


720 DbF rN c(a)=2+2*3 
1000 hum ** ±ns t r u ctions ** 
1050 BORDER 4: PPPER 5: INK D 


1050 CL5 : RESTORE 5000 

1070 REPD i$ 

1050 POKE 23592,255: REM Poke na 
kes s creen sc ro l L u i thou t asking 
1090 PRINT PT 21:0; 

1100 FDR i=l TD LEN i$: PRINT i$ 
(i) : BEEP ,02 : 0; NEXT i 

1110 PRINT 

1120 REPD i $ : IF i $ (1 >. < > :: © :; THEN 
GO TO 1100 

1200 L*i «i 5 = "h ress any key to co 
n t i n u e “ GO SUb 3b0 
1999 REM 


2000 HbM ** set up puzzle * + 

2001 REM 

2020 DIM z $ (5,5> DIH u $ (5) : DIM 

I" ( 4 : 2 ) 

2030 RPNDOMIZE 

2050 LET unua =1+ INT (RND*2») 

2050 RESTORE 5200: FDR i=1 TO un 


um. REPD US. NEXT i 
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206 5 FOR i =1 TO 5: LET X=OODE w$ 
ti :■ -10 

2067 IF x<65 THEN LET X=X+26 

2069 LET «i) =CHR$ (X) : NEXT i 

2070 i_tl V *=!.*$ 

2075 FOR i=1 TO 5 

2060 LET X =INT (RND+5) +1: IF « $ ( 
X) = " ” THEN GO TO 2080 
2093 i_6T z; ii , j ) =w$ (x ) 

2036 LtT w$-(x5 =’* *' 

2100 NEXT i 
2110 LET w$=V5 
2153 FOR x =1 TO 5 
2160 LET t =i : LET c=i 
2170 FOR a-1 TO 4 

2160 i_ET 1 = 1+1: IF l >5 THEN LET 
1 = 1-5 

2130 LET C=c+2: IF 05 THEN LET 
C = c - 5 

2230 L6! Z $(l :c ) =2 $ ( i i) 

2210 NEXT j 
2220 NEXT i 
2250 FOR i=1 ! 0 4 

2273 LET 1=1 + INT (RND+5) : LET r = 
1 + INT iRND-rS) 

2250 L6T used =S 
2220 FOR j=l TO 5 

2300 If I a $ ( j ) =z $ i. L , c ) THEN LET r 
{ i i 1) = l : LET r ( i , 2 ) = C : LET ¥ $ i ) 
= ” L6 ! U S £ d =1 

2310 NEXT J 

2323 IF used =3 THEN GO TO 2270 
23-33 NEX! x 
2350 L5 ! U- $=V$ 

2939 REM 

3003 K6h * + Display screen + + 

3001 REM 

3020 DIM a* (5,5) 

3030 r'RPlh 6: INK 2 CL5 GO 5U 

B 450 

3350 FOR i=5 TO 16 5TEP 2 
3060 PRINT RT j 

30/0 IF i<16 THEN PRINT RT x+1 3 

iiiii M" 

3080 NEXT x 
3030 INK 1 

3100 PR IN ! R • 4,3;’' i,Jo r.j to r, n , 

: ; u $ 

3120 RESTORE 8400 ; LET 1=5 LET 
C =15 

3130 HERD x$ . IF i$ < >“XXX” THEN 
HHJ.NT RT Lc;it: LET 1=1+1: GO T 
0 3130 

3150 FOR i=1 :0 + 

3160 LtT l= r (i ,1 ) : LET c= f (i ,2 ) 

3 1 /0 i_5 ! a $ ( l : C ) =Z $ ( t , c ) 

3180 PRINT RT FN 1 ( L> C (c) P 

RPEh 4.; INK 8 ; a$ ( l , c ) 

3130 NEXT i 
3933 REM 

4000 h: 5M +* Get answer -* 

4001 REM 

4060 LET j. =i ; LET c = 1 

4100 HRINl RT FN t (t) , FN C t C: : n 

UER 1.; FLR5H 1; ” " 

4160 if INKEY $<>"” THEN GO TO 41 
50 
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Ana grid 


4150 

LET K$ = INKEY $ IF 


THE 

N GO 

TO 4150 



4I70 

IF K $ • = :: a ;! hND 

— : ' T 

THEN 

LET 

KS=CHR5 (CODE K$- 

32) 


4150 

PRINT PT FN L(L} 5 

FN c | c 

) ; 0 

UER I 

FLP5H 0; 



4190 

LET OK. =0 



4200 

IF K. $ = 1! 7 s * PND l >1 

THFN 

LET 

1 = 1-1 

. GO TO 4100 



4220 

IF K$ = il 5 s: PND C <5 

then 

r 

in 

-i 

C = C -r 1 

. GO TO 4100 



4240 

IF r. $ = - 5 : ‘ PND c > 1 

THEN 

LE^ 

C = C -1 

: GO TO 4100 



4250 

IF K. 5 = 1 '5 :5 PND L <5 

then 

LET 

l = L +1 

: GO TO 4100 



4250 

IF k.4=CHRS (13) THEN GO 

TO 

4500 

4300 

LlI ! 0 f I Q =0 



4310 

FOR 2 =1 TO 4 



4320 

IF L = r (1,1} PND c 

= f ( i ,2 

? TH 

tN Lt; orig=l 



4330 

NEXT i 



4340 

IF on g=l THEN GO 

TO 4450 


4350 FOR i=i TO 5 

4350 IF k. $ =w 4 ( i ) THEN LET a $ U , C 
)=*$: PRINT RT FN lit) = FN C ( c) ; k. 
$: LET Ok =1 
4370 NEXT i 

4450 IF o R=0 THEN BEEP =2:25 
4450 GO TO 4100 

4499 REH 

450® hum t+ Check, answer ** 

4501 REM 
4550 LET Ok. =1 
4560 FOR 1=1 TO 5 

4570 FOR C=i TO 5 

4550 IF a $ C i ... c ) < >z$ ( t , c ) THEN LE 

T ok. =0 
4590 NEXT C 

4500 NEXT L 

4650 IF Ok. =1 THEN LET »$ = “ Well 
solved - dead right ! ! “ •. GO SUB 
350: GO SUB 550: PAUSE 0 
4570 IF Ok. =0 THEN LET a>$ = “ WRONG 
: - have another took. ! ": GO 5U 

B 350: GO SUB 500: PAUSE 0 
4700 Lt! ffi$ = “£>o you wan t a no the r 
g O •? (Y / N) '• ’ : G 0 5 U B 3 0 0 
4720 IF k. $ O “4 “ THEN CL5 : GO TO 
gggg 

4740 IF Ok. =1 THEN GO TO £000 
4750 IF ok. =0 THEN GO TO 3000. 

8000 DATA “ ANAGRID“ 

8010 DATA “ “ 

8020 DATA “You are given a five 
L e 11 e r “ 

8030 DA!A “word and a grid of 5x 
5 squares=“ 

8040 DATA “You have to put the w 
ord or an” 

8050 DAiA “anagram o f it in t o t h 
e grid” 

8050 DA!A “five tiraes = “ “,“Ess 

y ? Not here ! “ .=" “ 

80 70 DATA “No Letter ma y a p p e a r 
twice in “ 


Ana grid 


88*8 Dhih ' ‘ th € same Line 


v e r t i 


8898 DhTh 
L - even" 
8188 DhTh 
8118 DhTh 
been put 
ou « " , "Good 
8198 DhTh 
8288 DhTh 
s: , "N*5XU 15 
8218 DhTh 
, " D8K8X " 
8228 DhTh 
s: , "ZUKHO" 
8238 DhTh 
"."DKLUO" 


11 h or i z o n t a L o r d i a g o n a 

" t he s h o r t d i a g o n a L s = 

11 " . " So m e l e 11 e r s h a v 
i n :: , " a l re a d y t o k e Lp 

Lu c K ! " * 8i 58 " :! . " :! 
,, © , ‘ 

"RYBCO",“D500B”,“CRKBO 
11 US OR D" "OK WOC “ , “25UYD 
“BYKMR",“UKSJO","KxQUO 
"CXK5U”,“LESUN”,“PUYEB 


8240 DATA 

, “UOWYX” 


•ZUKSN”,"MRKSX",“CWSUO 


8488 

DhTh 

"Keys to use:".." " 


8418 

DhTh 

"* Left". "5 Doun 


Up 15 

"8 

Right" 


3428 

DhTh 

" "."Letters of" ."the 

w o r d " 
8438 

DhTh 

" "."ENTER to try" 

"y 

o u r a n s m e r 

" "XXX" 


8998 

GO TO 

9999 


9888 

INPUT 

"rile to save ? 

LI 

HE f $ 



9818 

5RUE 

1; f $ 


9828 

GO TO 

9999 


5188 

IH.P'JT 

"File to erase ? " 

; L 


INE f $ 

9110 ERASE “si”; 1; f $ 
9120 GO TO 9999 


Author: L. Cornford 
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Election 



■BMIIIIRH 

Total nu« be r of 


It was a very peculiar election. All the seats were won 
either by Labour or Conservatives with no opposition in 
any seat! The turnout was the same in all constituencies 
won by each party. The number of voters was also the 
same in all the seats won by each party. If we tell you that 
the total number of votes cast for each party was the same, 
and give you all the voting figures, can you work out the 
total number of constituencies? 


1 REM *•************#£•*$***** 

2 REM 

3 REM ELECTION 

4- REM 

5 HE.M ***** ***** ************ 

5 REM 

100 DIM Si $(30) 

210 RANDOMIZE 

295 GO TO 1000 

300 RtM ** Message *+ 

310 PRINT RT 20,1: BRIGHT 1, FL 
ASH 1; PAPER 5; INK 
320 GO SUB 400 

330 IF INKEY $ O'” ‘ THEN GO TO 33 

0 

335 LET K$= INKEY $ : IF K$ = " *’ THE 
N GO TO 335 
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33 7 IP K $ > = i: R RND f. $ = Z :: THEN 
^ET k*=OHR$ (CODE (K$)-32) 

340 PRINT RT 20 1; !i 


345 RETURN 

uu0 Htzh 4* Ins t ru c 1 1 on 44 
350 PRINT RT 20.1; BRIGHT I; PR 
PEP: 5; INK G : n * 

395 RETURN 

400 REM 44 Pips 4 4 

410 PGR i=l TO 2 

420 BEEP G * O5.50 PRU5E 2 

430 NbXl i 

445 RETURN 

4u0 RbM 4 4 Draw border 4* 

460 PRINT RT 0 -.0; p POR i =1 T 
0 20. PRINT RT i:0; i' s NETT i 
455 PRINT RT 21-.0: Is" : FOR i =1 
TO 30: PRINT RT 21 . i ; '"= : NEXT i 
470 PRl^rr ht 21.31; J POR i =2 
0 TO 1 STEP -1: PRINT RT i 731; :: 1 
. NEXT i 

475 PRINT RT 0x31 =1” FOR i =30 

TO 1 STEP -1: PRINT RT ©., i ; S! = 
NEXT i 
4-95 RETURN 

b ©0 Kbh 44 waspberry 44 
510 BEEP 1 15: BEEP 1 8 12 
520 BEEP ,5.25: FOR X=23 TO 17 
STEP -O 8 5 BEEP , 1 .. X : PRU5E 2 N 

EXT x 


545 RETURN 


bbG RbM 44 Congratu lations 44 
555 RESTORE 570 

550 RERD n . p : BEEP n ±0 - 25 = p IF 
n >9 THEN GO TO 550 
570 DRTR 1,12 ..1.14,1 = 16:2 = 17 = 2: 
5 : 12 


5~'2 DRTR 1:17 = 1 = 15,1,17,2,19.2. 
b , 14. 


574 DRTR 1 = 14 = 1 = 15,1,17,1 5 = 2 1 = 
0.5.19 

575 DRTR 1.19 = 1 17 = 1,17 *1 = 15 = 1 , 
14 -. 1 .. 15 = 3 = 17 

550 DRTR 0.0 
595 RETURN 
699 REM 

• u 0 R bM 4 4 u r a w bar i n d i c a x. o r 4 


4 

701 REM 

710 FOR X =5 TO 1 STEP -1 
720 PRINT RT L 14- (5-x ) ±2 .. c 1 ; 1: £ ; = 
X 41000 
730 NEXT x 

740 PRINT RT L 1 +10 , c 1; :: £0 :: RT L 
1 +10 = c 1-fS ; g 1; 

750 POR X = L 1 TO 1149: PRINT RT 
X,Cl46, i | : NEXT X 

790 RETURN 
999 REM 

1000 wbM 4 4 5 how in s tr u c tions 

1001 REM 

1050 RESTORE 5©00 

1050 BORDER 1. PRPER 2: INK G: C 
LS 

1070 PRINT RT 1=01 
1075 LET i =0 
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1030 KtPD i$: Ir i $ a) = 'S :: FH8N 

GO TO 1200 

1100 PRINT is 

1110 BEEP . 1 , i LET i =i -hi 

1120 GO TO 1080 

1200 Lt ■ a$=“Press any Key to co 
ntinue ...“ 

1210 GO SUB 300 
1993 REM 

2000 HtM * * Generate puzzle * * 

2001 REM 

2050 RANDOMIZE 

2070 LET n =100 *(10 + INT 1RND *23 } 

j 

2080 i_ET n f =103* (10 + INT i.RND*20) 

) 

2085 IP n f =na THEN GO TO 2083 
2093 LET ha =10* (1 + 1 NT <RND*9 > ) 
2130 LET h? =13*(1*1NT (RND*9) > 
2110 IP h f =hm THEN GO TO 2100 
2130 LET ffi1=(3*INT (RND*6) ) /13 
2150 Liz ! p S' =a 1 *n f *h f /10© 

2150 L8 i p f =»i*nSt *hSt /100 

21 /0 lp ! pop =p a +p f 

2130 L8 • teaves=2*pm*nst*ha /133 

2999 REM 

3000 H8M ** Display puzzle ** 

3001 REM 

3053 BORDER 6: PAPER 7 INK 0, 0 

LS . GO SUB 453 
3060 PGR i=1 TO 19 
3065 PRINT RT i.l; PAPER 2;“ 
RARER 1; “ 

3067 NEXT i 

3073 PRINT RT 2,7; PAPER 5; INK 
0; “ ELECTION RESULTS " 

3103 PRINT INVERSE 1,RT 4,2, LAB 
OUR-RT 4 ., 17**CONSERURTIUE ,: 

3120 hr INT h i 8,2.; “ i u r n ou t; ' ; h m 

h i 5,17.;“! u r n o u t : ”; h ? “ % ” 

3250 fkINT hi 8.2; “No of voters' 1 

•3255 PRINT RT 9,2 :: p e r sea i 
3250 rftiN * Hi 5 :17 :: No o f vo te rs 

3255 PRINT PT 9,17.; !! per seat 

32 / 0 HR IN I PT 10 , 2: nii!PT 10,17 ; n 

f 

3300 PRINT PI 12 4 : 'T o t a L number 
_ o f v o t e s is :s ; P i 13 : 13 ; L e a v e s 
3320 PRl?rr PT 15,8; !: CONSERUPTIUE 

3 3 30 P RI NT PT 16 ... 8 .; : 

3340 PRINT PT 17,8.; "LABOUR 

3350 LET = Press enter t D ansu 
e r . . , :: : GO SUB 350 
3360 PRINT PT 15,22J 1: X : 

33 .‘0 dttP si: 15 
3350 PPU5E 50 

3355 PRINT PT 15:22; 

3390 IF INKEY $ > !::: THEN GO TO 400 
0 

3400 PRlt-rr PT 17:22; :: X : 

3410 BEEP s 1:15 
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3420 PAUSE 50 

3425 PRINT PT 17,22;" 

3440 IF INKEY $>" ” THEN GO FO 400 
8 

3458 GO TO 3358 
3999 REM 

48sj0 kp.M ** Get answer *x 
4001 REM 

485 0 INPUT "T 0 15l n ua be r o f sea t 
s ? LINE r $ 

i860 IF r $ = “ THEN GO TO 48*8 

485* i_* I Ok=l 

40-0 FOP. i=l TO LEN r $ 

4880 IF r $ !. i ) < “0’’ OR f $ (i i 9 
HEN L.ET o k =8 
4898 N*X! i 

4188 IF Ok =8 THEN GO TO 4©*8 
4158 l_*~ answe r =UPL r$ 

4168 LET Ok =8 

4170 i* answer=pop \HcN L*? ok =x 
4499 REM 

4588 REM 4 * Check answer + * 

4581 REM 

4558 IF Ok =8 THEN LET »$=“YOU WO 
n't be our adviser ! 11 GO SUts 3s 
8 : GO SUB 588: PAUSE 8 
4578 IF o k =1 THEN LET s$ = "Kight_ 

! (or Left) - correct “: GO SUB 
358. GO SUB 5*8 PAUSE 8 
4588 LET a s = 1 ’Do y o u wan t ano t he r 
try 7 ": GO SUs 388 

4598 IF k$ 0 “y" THEN PAPER 7: iN 
K 8 : CL5 : GO TO 9999 

4588 IF Ok =8 THEN GO TO 3888 
4518 IF ok =1 THEN GO TO 2088 
7999 REM 

8888 k*M h instruction data 4 4 
8881 REM 

8818 DATA ' ELECTION 1 ' , 

8828 DATA “It was a very pecutis 
r e te c tion , " 

8838 DATA “Alt the seats were wo 
n by either" 

8848 DATA "La bour or Conse rva tiv 
e with no" 

88*8 Dh iA "opposition in any sea 

t ; - 

8868 DATA. "The t u r n o u t w a s t h e s 
ame in alt" 

8878 DATA “constituencies won by 


each 

8088 DATA 
voters ” 
8098 DATA 
all the " 
8188 DATA 
ty . " , ** “ 
8118 DATA 
he total" 
8128 DATA 


“p arty. The num be r o f 
w as at s o t he s a a e in 
“seats won by each pa r 
“If we tell you that t 
‘ ! nu abe r o f v ot e s cast 


for each" 

8138 DATA "party was the sane, a 
nd give you" 

8148 DATA "atl t h e v o tin g figur e 


s. can you" 

8158 DATA " w 0 r k o u t t h e t ot a l nu 


a be r o f 


160 


Election 


5150 DP. • P “constituencies ?“ 

5190 DPTP ”© S1 
5990 GO TO 9999 

9000 INPUT “rile to save ? i! LI 

N £ r 5 

9010 SPUE ; i; f $ 

9020 GO TO 9999 

9100 INPUT “ri te to erase ? ; L 

IN5 f % 

9110 frhSE "a* ; 1; f * 

9120 GO TO 9999 

9200 PPPER ?; INK 0 CL5 : GO TO 

9999 


Author: T. Maher 


Solution to ‘Shunting’ 


If you set up the starting position, and then enter the following 
commands, you should arrive at the desired result: 

L; L; D; L; L; S; U; G; L; L; D; U; K; R; L; S; L; L; D; L; L; S; U 
G; L; U; K; R; L; U; G; L; S; L; U; G; L; D; U; G; L; U; G; L; S. 


THE TIMES 

Book of Computer Puzzles & Games 
for the Sinclair ZX Spectrum 

Compiled by Robin Bradbeer and Harold Gale 

Sidgwick and Jackson have joined with The Times to 
produce this book of challenging puzzles and games to 
be solved and played using the Sinclair ZX Spectrum 
computer. Computer expert Robin Bradbeer and 
Harold Gale of MENS A have made their selection on 
the basis of their originality and entertainment value, 
whilst at the same time, ensuring that they are at an 
approachable level to appeal to as wide an audience of 
computer hobbyists as possible. 

Over thirty games and puzzles are included, complete 
with program listings in BASIC, description of game 
or p/uzzle, its objective and a screen shot. They range 
from the mind-numbing ‘Blocks’ - a superb Rubik’s 
Cube-like game with excellent graphics - through a 
variety of difficult puzzles and stimulating games to 
‘Shunting’ whose objective is to use an engine to 
transfer carriages to a station and trucks to a depot 
leaving the engine in the siding - seems 
easy until you try it! 

This compelling book will provide hours, days and 
even weeks of thought-provoking entertainment for the 
Sinclair ZX Spectrum owner. 

Q 

ISBN 0 283 99164 X 
Sidgwick & Jackson Limited 
1 Tavistock Chambers, Bloomsbury Way, 

London WC1A 2SG 


£6.95 net UK only 


